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Abstract 

This  standard  provides  the  Ada  language  syntax  for  American  National  Standard  for  Infor¬ 
mation  Systems  -  Computer  Graphics  -  Graphical  Kernel  System  (GKS)  Functional  De¬ 
scription,  ANSI  X3.1 24-1985.  The  Ada  language  binding  of  GKS  is  a  syntactic  specification, 
presented  as  a  set  of  procedures  and/or  functions  that,  taken  as  a  whole,  provide  the  sem¬ 
antics  of  GKS  for  use  by  an  Ada  application  program. 

For  each  GKS  function,  the  Ada  procedure  name,  argument  list,  and  argument  data  types 
are  given.  In  addition,  any  special  errors  associated  only  with  the  Ada  language  binding  of 
GKS  are  specified  and  assigned  unique  error  numbers.  The  data  type  definitions  used  to 
define  the  Ada  binding  to  GKS  are  defined  in  a  separate  package,  package  GKS_TYPES; 
the  GKS  procedures  and/or  functions  are  defined  in  a  separate  package,  package  GKS. 


American 

National 

Standard 


Approval  of  an  American  National  Standard  requires  verification  by  ANSI  that  the  re¬ 
quirements  for  due  process,  consensus,  and  other  criteria  for  approval  have  been  met  by 
the  standards  developer. 

Consensus  is  established  when,  in  the  judgment  of  the  ANSI  Board  of  Standards  Review, 
substantial  agreement  has  been  reached  by  directly  and  materially  affected  interests.  Sub¬ 
stantial  agreement  means  much  more  than  a  simple  majority,  but  not  necessarily  unanim¬ 
ity,  Consensus  requires  that  all  views  and  objections  be  considered,  and  that  a  concerted 
effort  be  made  toward  their  resolution. 


The  use  of  American  National  Standards  is  completely  voluntary;  their  existence  does  not 
in  any  respect  preclude  anyone,  whether  he  has  approved  the  standards  or  not,  from  man¬ 
ufacturing,  marketing,  purchasing,  or  using  products,  processes,  or  procedures  not  con¬ 
forming  to  the  standards. 

The  American  National  Standards  Institute  does  not  develop  standards  and  will  in  no  cir¬ 
cumstances  give  an  interpretation  of  any  American  National  Standard.  Moreover,  no  per¬ 
son  shall  have  the  right  or  authority  to  issue  an  interpretation  of  an  American  National 
Standard  in  the  name  of  the  American  National  Standards  Institute.  Requests  for  inter¬ 
pretations  should  be  addressed  to  the  secretariat  or  sponsor  whose  name  appears  on  the 
title  page  of  this  standard. 

CAUTION  NOTICE:  This  American  National  Standard  may  be  revised  or  withdrawn  at 
any  time.  The  procedures  of  the  American  National  Standards  Institute  require  that 
action  be  taken  periodically  to  reaffirm,  revise,  or  withdraw  this  standard.  Purchasers 
of  American  National  Standards  may  receive  current  information  on  all  standards  by 
calling  or  writing  the  American  National  Standards  Institute. 


Published  by 


American  National  Standards  Institute 
1430  Broadway,  New  York,  New  York  10018 


Copyright  ©  1989  by  American  National  Standards  Institute,  Inc 
All  rights  reserved. 

No  part  of  this  publication  may  be  reproduced  in  any  form, 
in  an  electronic  retrieval  system  or  otherwise,  without 
the  prior  written  permission  of  the  publisher. 

Printed  in  the  United  States  of  America 


B  H 1  'AM  1 289/35 


(This  Foreword  is  not  part  of  American  National  Standard  X3. 124.3-1989.) 


This  American  National  Standard  provides  access  to  a  set  of  basic  functions  for 
computer  graphics  programming  in  accordance  with  American  National  Standard 
Reference  Manual  for  the  Ada  Programming  Language,  ANSI/MIL-STD  1815  A- 
1983.  These  graphics  functions  taken  as  a  whole  are  called  the  Ada  language 
binding  of  the  graphical  kernel  system  (GKS). 

The  graphical  kernel  system  is  a  set  of  basic  functions  for  computer  graphics 
programming  usable  by  many  graphics-producing  applications.  This  standard 

(1)  allows  graphics  application  programs  to  be  easily  transported  between 
installations,  (2)  aids  Ada  graphics  applications  programmers  in  understanding  and 
using  graphics  methods,  and  (3)  guides  device  manufacturers  on  useful  graphics 
capabilities. 

This  standard  defines  an  Ada  application  level  programming  interface  to  a  graphics 
system.  Hence,  it  contains  functions  for  (1 )  outputting  graphical  primitives; 

(2)  controlling  the  appearance  of  graphical  primitives  with  attributes;  (3) 
controlling  graphical  workstations;  (4)  controlling  transformations  and  coordinate 
systems;  (5)  generating  and  controlling  groups  of  primitives,  called  segments;  (6) 
obtaining  graphical  input;  (7)  manipulating  groups  of  device-independent 
instructions,  called  metafiles;  (8)  inquiring  the  capabilities  and  states  of  the 
graphics  system;  and  (9)  handling  errors. 

For  each  GKS  function,  the  Ada  procedure  name,  argument  list,  and  argument 
data  types  arc  given.  In  addition,  any  special  errors  associated  only  with  the  Ada 
language  binding  of  GKS  are  specified  and  assigned  unique  error  numbers.  The 
data  type  definitions  used  to  define  the  Ada  binding  to  GKS  are  defined  in  a 
separate  Ada  package,  package  GKS_TYPES;  the  GKS  procedures  or 
functions,  or  both,  are  defined  in  a  separate  Ada  package,  package  GKS. 

Twelve  upwardly  compatible  levels  of  conformance  are  defined,  addressing  the 
most  common  classes  of  equipment  and  applications. 

American  National  Standard  for  Information  Systems  —  Computer  Graphics  — 
Graphical  Kernel  System  (GKS)  Functional  Description,  ANSI  X3. 124-1985,  is 
supplemented  by  this  derivative  standard.  ANSI  X3. 124-1985  corresponds  to 
ISO  7942:1985  in  that  it  represents  the  functional  aspects  of  GKS.  ANSI  X3.124- 
1985  contains  specifications  not  present  in  ISO  7942:1985,  namely,  tire  syntax  for 
using  GKS  functions  and  data  types  from  Ada. 

The  design  of  this  standard  is  based  on  the  work  of  many  groups.  Much  of  the 
early  design  methodology  of  graphics  standards  was  developed  at  the  Workshop 
on  Graphics  Standards  Methodology  held  in  May,  1976,  in  Seillac,  France,  under 
IFIP  WG5.2  sponsorship.  GKS  itself  was  originally  developed  by  Deutsches 
Institute  fur  Normung  (DIN),  the  West  German  standardization  institute,  in  1978 
and  was  subsequently  refined  extensively  between  1980  and  1982  by  Working 
Group  4  of  the  Subcommittee  on  Programming  Languages  of  the  Technical 
committee  on  Information  Processing  of  the  International  Organization  for 
Standardization  (ISO/IEC  JTC1/SC24/WG4).  The  resulting  International  Standard 
(Information  Processing  —  Computer  Graphics  —  Graphical  Kernel  System 
(GKS)  Functional  Description,  ISO  7942:1985)  was  the  basis  for  ANSI  X3.124- 
1985.  The  development  of  the  GKS  was  heavily  influenced  by  the  work  of  the 
Graphics  Standards  Planning  Committee  of  the  Special  Interest  Group  on 
Computer  Graphics  of  the  Association  for  Computing  Machinery  (ACM 
SIGGRAPH  GSPC).  This  work,  known  as  Core  System  Proposal,  was 
published  and  widely  distributed  in  1977  and  again  (in  a  revised  version)  in  1979. 

The  Ada  binding  of  GKS  was  started  by  American  participants  of  Technical 


Committee  X3H3  of  Accredited  Standards  Committee  X3  (Information 
Processins).  After  refinement  by  both  Technical  Committee  X3H3  and  ISO/IEC 
JTC1/SC24/WG4,  the  document  was  registered  as  International  Standard  for 
Information  Processing  Systems  — Computer  Graphics  — Graphical  Kernel 
System  (GKS)  Language  Bindings  —  Part  3:Ada,  ISO  8651-3:1988,  in  July 
1988.  ANSI  X3. 124.3-1989  is  identical  to  ISO  8651-3:1988  in  almost  all  areas  of 
the  standard.  All  functional  capabilities  of  ISO  GKS  are  found  in  the  ANSI  GKS 
and  are  bound  to  the  Ada  programming  language  identically.  The  ANSI  GKS 
does,  however,  differ  in  the  following  ways: 

(1)  A  new  minimal  output  level  (denoted  m)  is  defined  in  ANSI  X3. 124-1985. 

(2)  A  new  section  defining  a  conforming  program  and  a  conforming 
implementation  replaces  a  more  restrictive  conformance  statement  found  in 
the  body  of  ISO  GKS  standard  document. 

(3)  Several  of  the  Annexes  in  the  ISO  GKS  document  have  been  modified. 
Also,  the  word  "Annex"  has  been  changed  to  "Appendix." 

(4)  The  default  for  ASF's  is  INDIVIDUAL. 

(5)  The  data  records  for  INPUT  have  been  defined. 

(6)  Appendix  G  of  ANSI  X3. 124-1985  contains  a  detailed  and  exhaustive  list 
of  all  the  differences  between  ANSI  X3. 124-1985  and  ISO  7942:1985. 

All  these  differences  are  reflected  in  this  standard. 

The  FORTRAN  language  binding  already  exists  as  ANSI  X3. 124. 1-1985  and 
ISO  8651-1:1988,  and  the  Pascal  language  binding  has  been  published  as  ANSI 
X3. 124.2-1988  and  ISO  8651-2:1988.  The  C  language  binding  for  GKS  is 
currently  under  development  by  Technical  Committee  X3H3.  This  standard,  when 
approved  by  X3  and  ANSI,  will  be  published  as  ANSI  X3. 124.4.  Internationally, 
this  language  binding  of  GKS  will  be  published  as  ISO  8641-4. 

This  standard  was  developed  by  Technical  Committee  X3H3  of  Accredited 
Standards  Committee  X3  under  two  projects  authorized  by  X3,  namely,  project 
268D  and  project  362D.  More  specifically,  GKS,  as  a  whole,  meets  the  goals  of 
project  268D,  while  the  minimal  output  level  m  found  in  this  American  National 
Standard,  but  not  present  in  ISO  7942:1985,  meets  the  goals  of  project  362D. 

Both  projects  authorized  tire  specification  of  syntax  (as  embodied  in  a 
programming  language  binding)  as  well  as  semantics. 

This  standard  was  approved  as  an  American  National  Standard  by  the  American 
National  Standards  Institute  on  June  30,  1989. 

Suggestions  for  improvement  of  this  standard  will  be  welcome.  They  should  be 
sent  to  the  Computer  and  Business  Equipment  Manufacturers  Association,  31 1 
First  Street,  NW,  Suite  500,  Washington,  DC  20001. 

This  standard  was  processed  and  approved  for  submittal  to  ANSI  by  the 
Accredited  Standards  Committee  on  Information  Processing  Systems,  X3. 
Committee  approval  of  the  standard  docs  not  necessarily  imply  that  all  committee 
members  voted  for  its  approval.  At  the  time  it  approved  this  standard,  the  X3 
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0  Introduction 


The  Graphical  Kernel  System  (GKS)  is  fully  described  in  American  National  Standard  for 
Information  Systems  —  Computer  Graphics  —  Graphical  Kernel  System  (GKS)  Functional 
Description,  ANSI  X3. 124-1985.  As  explained  in  the  scope  and  field  of  applications  of  ANSI 
X3. 124-1985,  that  American  National  Standard  is  specified  in  a  language-independent  manner  and 
needs  to  be  embedded  in  language-dependent  layers  (language  bindings)  for  use  with  particular 
programming  languages. 

The  purpose  of  this  document  is  to  define  a  standard  binding  for  the  Ada  computer  programming 
language. 
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Scope  and  Field  of  Application 


1  Scope  and  Field  of  Application 


The  Graphical  Kernel  System  (GKS),  as  described  in  ANSI  X3. 124-1985,  specifies  a  language- 
independent  nucleus  of  a  graphics  system.  For  integration  into  a  programming  language,  GKS  is 
embedded  in  a  language-dependent  layer  obeying  the  particular  conventions  of  that  language.  This 
document  specifies  such  a  language-dependent  layer  for  the  Ada  language. 
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3  The  Ada  Language  Binding  of  GKS 

This  binding  does  not  assume  that  the  compiler  supports  any  Ada  language  features  which  are 
implementation  dependent,  but  implies  that  the  compiler  shall  be  able  to  support  the  declarations  contained 
in  this  GKS/Ada  binding.  This  binding  does  not  make  any  assumptions  regarding  the  machine 
representation  of  the  predefined  Ada  numeric  types. 

This  binding  assumes  that  the  application  programmer  will  supply  an  error  file  name  and  connection 
identifier  that  are  in  an  acceptable  format  for  the  Ada  implementation. 

This  binding  makes  no  assumptions  regarding  the  format  of  a  string  specifying  an  error  fde  name  or 
connection  identifier  for  devices  or  metafiles. 

3.1  Conformance 

This  binding  incorporates  the  rules  of  conformance  defined  in  the  GKS  Standard  (ANSI  X3. 124-1985)  for 
GKS  implementations,  with  these  additional  requirements  specifically  defined  for  Ada  implementations  of 
GKS. 

The  following  criteria  are  established  for  determining  conformance  or  non-conformance  of  an 
implementation  to  this  binding: 

a)  An  implementation  of  GKS  in  Ada  conforms  to  a  level  of  GKS  if  it  makes  visible 
exactly  die  declarations  for  that  level  of  GKS  and  lower  levels  of  GKS  as  stated  in  this 
binding. 

b  The  semantics  of  an  implementation  shall  be  those  stated  in  the  GKS  standard  as 
modified  or  extended  for  Ada  as  stated  in  this  binding  document. 

c)  The  package  corresponding  to  the  GKS  level  being  implemented  shall  be  an  available 
Ada  library  unit,  with  all  names  as  specified  by  this  document. 

3.2  Implications  of  the  Language 

3.2.1  Functional  Mapping 

The  functions  of  GKS  are  all  mapped  to  Ada  procedures.  The  mapping  utilizes  a  one-to-one  correspondence 
between  the  GKS  functions  and  Ada  procedures,  except  for  the  GKS  functions  Inquire  Current  Primitive 
Attribute  Values  and  Inquire  Current  Individual  Attribute  Values.  These  are  bound  with  one  Ada  procedure 
for  each  of  the  attributes  being  inquired;  in  addition,  the  attributes  are  bound  as  a  single  record. 

3.2.2  Implementation  and  Host  Dependencies 

There  are  a  number  of  implementation  and  host  dependencies  associated  with  the  Ada  compiler  and  runtime 
system  used.  These  will  affect  the  portability  of  application  programs  and  their  use  of  GKS.  The 
application  programmer  should  follow  accepted  practices  for  ensuring  portability  of  Ada  programs  to  avoid 
introducing  problems  when  rehosting  the  application  on  another  system.  Implementation  dependencies 
include  runtime  storage  management  and  processor  management. 

3.2.3  Error  Handling 

The  inquiry  functions  utilize  error  indicator  parameters  for  the  error  returns,  and  do  not  raise  Ada  exceptions. 
The  application  program  must  ensure  that  these  error  indicators  tire  checked  before  attempting  to  access 
other  parameters,  since  Ada  implementations  do  not  raise  an  exception  if  an  undefined  value  is  accessed. 
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The  error  handling  requirements  of  GKS  can  be  summarized  as  follows: 

1 .  By  default,  a  procedure  named  ERROR_H ANDLING  will  be  provided 
that  simply  reports  the  error  by  calling  ERROR_LOGGING.  This  is 
called  from  the  GKS  function  that  detects  the  error. 

2.  The  ERROR_H ANDLING  procedure  may  be  replaced  by  one  defined  by 
the  user. 

The  procedure  ERROR_HANDLING  is  defined  as  a  library  subprogram: 

with  GKS_TYPES; 

use  GKS_TYPES; 

procedure  ERROR_HANDLING  (ERROR_INDICATOR  :  in  ERROR_NUMBER; 

GKS_FUNCTION  :  in  STRING; 

ERROR_FILE  :  in  STRING 

:=  DEFAULT_ERROR_FILE); 


-  The  procedure  ERROR_HANDLING  is  defined  as  a  library  subprogram,  and  is  not 

-  declared  within  package_GKS. 

This  binding  defines  two  different  bodies  for  this  subprogram;  each  must  be  supplied  by  the 
implementation.  The  default  body  is  the  one  required  by  GKS  semantics.  It  simply  calls 
ERROR_LOGGING  and  returns.  The  second  body  calls  ERRORJLOGGING  and  then  raises  the  exception 
GKS_ERROR.  The  GKS  function  must  be  written  so  as  not  to  handle  GKS_ERROR  (this  is  a 
requirement  of  the  implementation).  Thus,  by  Ada  rules,  the  exception  will  be  propagated  back  to  the 
application  program  that  called  the  GKS  function  in  which  the  error  was  detected. 

The  means  by  which  the  user  replaces  the  default  body  of  either  the  exception-raising  version  or  another  one 
of  his  or  her  choosing  is  dependent  upon  the  Ada  library  manager.  Some  implementations  support  multiple 
versions  of  a  body  with  a  single  specification  or  otherwise  allow  hierarchical  libraries  with  the  sharing  of 
common  units.  In  other  implementations  it  may  be  necessary  to  duplicate  the  GKS  library  for  each  version 
of  ERROR_Fl  ANDLING. 

GKS  errors  are  mapped  to  the  single  exception  GKS  JERROR,  declared  in  the  GKS  package.  The  expected 
style  in  dealing  with  errors  using  exception  handling  is  to  provide  a  handler  for  the  GKS_ERROR 
exception. 

3.2.4  Data  Mapping 

The  simple  and  compound  data  types  of  GKS  are  bound  to  a  variety  of  Ada  scalar  and  compound  types. 
Constraints  on  permitted  values  are  reflected  where  possible  in  the  type  definitions.  The  general 
correspondence  between  the  GKS  data  types  and  Ada  binding  data  types  is  summarized  below: 

GKS  integers  are  mapped  to  Ada  integer  types. 

GKS  reals  are  mapped  to  Ada  floating-point  types. 

GKS  strings  are  mapped  to  the  predefined  Ada  type  STRING,  or  to  a  type  providing  for 
variable  length  strings. 

GKS  points  are  mapped  to  Ada  record  types. 

GKS  names  are  mapped  to  Ada  discrete  types. 

GKS  enumeration  types  are  mapped  to  Ada  enumeration  types. 
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GKS  vectors  are  mapped  to  Ada  record  types. 

GKS  matrices  are  mapped  to  Ada  array  types. 

GKS  lists  (of  elements  of  a  particular  type)  are  mapped  to  an  Ada  private 
type  declared  in  an  instantiation  of  the  generic  GKS_LIST_UTILITIES  package. 

GKS  arrays  are  mapped  to  either  an  unconstrained  Ada  array  type,  or  to  a  record  type 
providing  for  variable  length  arrays. 

GKS  ordered  pairs  are  mapped  to  Ada  record  types. 

GKS  data  records  are  mapped  to  Ada  private  types.  In  some  cases  a  set  of  subprograms  for 
operating  on  the  data  records  is  explicitly  defined  by  this  binding.  This  is  because  the 
content  and  structure  of  the  data  record  is  implementation-dependent.  An  implementation 
of  GKS  may  provide  other  subprograms  for  manipulating  implementation-dependent  data 
records. 

3.2.5  Multi-Tasking 

The  Ada  language  definition  provides  explicit  support  for  concurrency.  The  Ada  tasking  model  includes 
facilities  for  declaring  and  allocating  tasks,  and  operations  allowing  intertask  communication  and 
synchronization. 

The  GKS  standard,  and  hence  this  binding,  neither  requires  nor  prohibits  an  implementation  from  protecting 
against  problems  which  could  arise  from  asynchronous  access  to  the  GKS  data  structures  from  concurrent 
tasks.  Implementors  of  GKS  should  provide  information  in  the  user's  documentation  regarding  whether 
protection  against  such  problems  is  implemented. 

Appendix  D  contains  guidelines  for  implementors  who  want  to  support  multi-tasking  application  programs. 
This  Appendix  does  not  form  an  integral  part  of  the  binding  standard,  but  provides  additional  information. 

3.2.6  Packaging 

The  GKS  standard  defines  twelve  levels  of  graphic  functionality,  with  level  ma  as  the  lowest  level  and  level 
2c  as  the  highest  level.  An  implementation  of  GKS  may  implement  every  level  individually  or  as  a  single 
system.  To  support  this  concept  this  binding  defines  twelve  Ada  packages  which  correspond  to  each  of  the 
GKS  levels.  Each  of  these  packages  is  named 

package  GKS  is  ...  end  GKS; 

to  provide  portability  of  application  programs  for  levels  of  GKS.  However,  the  contents  of  the  packages 
differ  depending  on  the  level  of  GKS  that  they  provide.  Each  of  these  packages  provides  the  subprograms 
defined  for  its  level  and  all  subprograms  defined  in  "lower"  levels  as  described  in  5.1  of  this  binding. 
Associated  with  each  of  these  packages  is  a  data  type  package  which  provides  the  type  declarations  for  the 
appropriate  level  as  defined  in  4.2  and  the  GKS  defined  exception  defined  in  4.3.1.  These  packages  are 
named 


package  GKS_TYPES  is  ...  end  GKS_TYPES; 

The  Ada  program  library  facility  should  be  used  to  provide  the  levels  separation.  Thus,  an  Ada  graphics 
application  program  which  uses  GKS  would  "with"  the  appropriate  GKS  packages  which  provide  the 
subprogram,  types,  and  exceptions  for  that  level  by  compiling  and  linking  to  the  corresponding  Ada  library 
which  contains  that  level  of  GKS.  For  example,  an  application  which  uses  level  Oa  would  "with"  the 
packages  as  follows: 
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with  GKS; 
use  GKS_TYPES; 
procedure  APPLICATION  is 
begin 
null; 

end  APPLICATION; 

Then  the  program  is  compiled  and  linked  to  the  Ada  program  library  that  corresponds  to  level  Oa. 

Several  additional  Ada  units  are  defined  in  this  binding.  These  are: 

o  generic  package  GKS_COORDINATE_SYSTEM 
o  generic  package  GKS_LIST_UTILITIES 

These  generic  packages  support  the  declaration  types  in  the  GKS_TYPES  package  described  above.  The 
GKS_COORDINATE  _SYSTEM  is  a  generic  package  that  defines  an  assortment  of  types  for  supporting 
each  of  the  GKS  coordinate  systems.  GKS_LIST_UTILITIES  is  also  a  generic  package  which  provides 
type  declarations  and  operations  for  list  types  which  correspond  to  the  GKS  list  types. 

3.2.7  Application  Program  Environment 

An  application  program  utilizing  an  Ada  implementation  of  GKS  will  need  to  be  aware  of  the  environment 
in  which  both  GKS  and  the  application  program(s)  reside. 

One  such  interface  is  the  Ada  program  library.  The  Ada  language  requires  that  the  application  program  have 
access  to  the  program  library  in  which  the  GKS  software  resides.  The  American  National  Standard 
Reference  Manual  for  the  Ada  Programming  Language  ANSI/MIL-STD-1815A-1983,  does  not  specify 
whether  there  is  a  single  library  or  multiple  libraries,  or  how  access  to  the  libraries  is  granted,  managed,  etc. 
The  user's  documentation  for  the  GKS  implementation  should  specify  where  the  GKS  library  exists  in  the 
system,  and  how  access  to  the  library  is  acquired. 

Input/Output  interfaces  are  also  implementation-dependent,  and  are  required  to  be  described  in  the  user's 
documentation.  Besides  the  obvious  graphics  device  interface  information,  interfaces  to  the  file  system 
shall  be  included  in  the  documentation.  Specifically,  this  includes  the  interface  to  the  GKS  error  file  and 
also  the  metafile  storage. 

3.2.8  Registration^ ) 

The  GKS  standard  reserves  certain  value  ranges  for  registration  as  graphical  items.  The  registered  graphical 
items  will  be  bound  to  Ada  (and  other  programming  languages).  The  registered  item  bindings  will  be 
consistent  with  the  binding  presented  in  the  document. 


)  For  the  purpose  of  this  part  of  ANSI  X3. 124-1985  and  according  to  the  rules  for  the  designation  and  operation  of  registration 
authorities  in  ISO  Directives,  the  ISO  Council  has  designated  the  National  Institute  of  Standards  and  Technology,  A266  Technology 
Building,  Gaithersburg,  MD,  20899,  USA,  to  act  as  registation  authority. 


Page  7 


American  National  Standard  X3. 124. 3-1989 


Tables 

4  Tables 

4.1  Tables  of  GKS  Functions  and  Abbreviations 


Table  1 

Abbreviations  Used  in  Procedure  Names 

ASF 

CHAR 

ESC 

GDP 

GKS 

GKSM 

ID 

INQ 

MAX 

UGDP 

UESC 

WS 

aspect  source  flag 

character 

escape 

generalized  drawing  primitive 

Graphical  Kernel  System 

Graphical  Kernel  System  metafile 

identifier 

inquire 

maximum 

unregistered  generalized  drawing  primitive 

unregistered  escape 

workstation(s) 

Table  2 

List  of  Procedures  Using  the  Abbreviations 

ASF 

INQ  LIST  OF  ASF 

SET_ASF 

CHAR 

inq_char  BASE  VECTOR 

INQ_CHAR  EXPANSION  FACTOR 

inq_char_height 

INQ_CHAR  WIDTH 

INQ  CHAR  SPACING 

INQ  CHAR  UP  VECTOR 

SET_CHAR_EXPANSION  FACTOR 

SET  CHAR  HEIGHT 

SET  CHAR  SPACING 

SET_CHAR_UP_VECTOR 

ESC 

ESC 

UESC 

GDP 

GDP 

INQ  GDP 

INQ  LIST  OF  AVAILABLE  GDP 

UGDP 
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Table  2 

List  of  Procedures  Using  the  Abbreviations  (Continued) 


GKS 

CLOSEGKS 

EMERGENCY_CLOSE_GKS 

INQ_LEVEL_OF_GKS 

OPEN_GKS 


GKSM 

GET_ITEM_TYPE_FROM_GKSM 
RE  AD_ITEM_FROM_GKS  M 
WRITE_ITEM_TO_G  KS  M 


INQ_CURRENT_PICK_ID_VALUE 

SET_PICK_ID 


inq_char_base_vector 

INQ_CHAR_EXPANS  ION_FACTOR 
ENQ_CHAR_HEIGHT 

inq_char_width 

INQ_CHAR_SPACING 
INQ_CHAR_UP_  VECTOR 

inq_choice_device_state 

INQ_CLIPPING 

inq_colour_facilities 

INQ_COLOUR_REPRESENTATION 

inq_current_normalization_transformation_number 
inq_current_individual_attribute_values 
inq_current_pic  k_i  d_v  alue 

INQ_DEFAULT_CHOICE_DEVICE_DATA 
INQ_DEFAULT_DEFERR  AL_ST  ATEJV  ALUES 
INQ_DEFAULTJLOCATOR_DEVICE_DATA 
IN  Q_DEFAULT_PIC  K_DE  VICE_D  AT  A 
INQ_DEFAULT_STRING_DEVICE_DATA 
INQ_DEFAULT_STROKE_DEV  ICE_D  AT  A 
INQ_DEFAULT_VALUATOR_DEVICE_DATA 
INQ_DISPLAY_SPACE_SIZE 

inq_dynamic_modification_of_segment_attributes 

INQ_DYNAMIC_MODIFICATION_OF_WS_ATTRIBUTES 

INQ_FILL_AREA_COLOUR_INDEX 

inq_fill_area_facilities 

INQ_FILL_AREA_INDEX 

inq_fill_area_interior_style 

inq_fill_area_representation 

inq_fill_area_stylejndex 

INQ_GDP 

inq_input_queue_overflow 

inq_level_of_gks 

inq_list_of_asf 

inq_linetype 


(Continued  on  Next  Page) 
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Table  2 

List  of  Procedures  Using  the  Abbreviations  (Continued) 


INQ_LINEWIDTH_SCALE_F  ACTOR 
IN  Q_LIS  T_OF_  A  V  A IL  A  B  LE_G  DP 
INQ_LIST_OF_AVAILABLE_WS_TYPE 
INQ_LIST_OF_COLOUR_INDICES 
INQ_LIST_OF_FILL_AREA_INDICES 

INQ_LIST_OF_NORMALIZATION_TRANSFORMATION_NUMBER 

INQ_LIST_OF_PATTERN_INDICES 

INQJLIST_OF_POLYLINE_INDICES 

INQ_LIST_OF_POLYMARKER_INDICES 

INQ_LIST_OF_TEXT_INDICES 

INQ_LOCATOR_DEVICE_STATE 

INQ_MARKER_SIZE_SCALE_FACTOR 

INQ_MARKER_TYPE 

INQ_MAX_LENGTH_OF_WS_STATE_TABLES 

INQ_MAX_NORMALIZATION_TRANSFORMATION_NUMBER 

INQ_MORE_SIMULTANEOUS_EVENTS 

INQ_NAME_OF_OPEN_SEGMENT 

INQ_NORMALIZATION_TRANSFORMATION 

INQ_NUMBER_OF_SEGMENT_PRIORITIES_SUPPORTED 

INQ_NUMBER_OF_AVAILABLE_LOGICAL_INPUT_DEVICES 

INQ_OPERATING_STATE_VALUE 

inq_pattern_facilities 

INQ_PATTERN_HEIGHT_  VECTOR 
INQ_PATTERN_REFERENCE_POINT 
INQ_PATTERN_REPRESENTATION 
INQ_PATTERN_WIDTH_VECTOR 

inq_pick_device_state 

INQPIXEL 
INQ_PIXEL_  ARRAY 

inq_pixel_array_dimensions 

inq_polyline_colour_index 

inq_polyline_facilities 

inq_polyline_index 

inq_polyline_representation 

inq_polymarker_representation 

inq_polymarker_colour_index 

inq_polymarker_index 

inq_polymarker_facilities 

inq_predefined_colour_representation 

INQ_PREDEF1NED_FILL_AREA_REPRESENTAT10N 

inq_predefined_pattern_representation 

inq_predefined_polyline_representation 

INQ_PREDEFINED_POLYMARKER_REPRESENTATION 

INQ_PREDEFINED_TEXT_REPRESENTATION 

IN  Q_S  EG  MENT_  ATTR I B  UTES 

IN  Q_S  ET_OF_  ACTI  VE_  W  S 

INQ_SET_OF_ASSOCIATED_WS 

I N  Q_S  ET_0  F_0  PE  N_  W  S 

INQ_S  ET_OF_S  EG  MENT_N  A  MES_IN_U  S  E 

inq_set_of_segment_names_on_ws 
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Table  2 

List  of  Procedures  Using  the  Abbreviations  (Continued) 


INQ  STRING  DEVICE  STATE 

INQ_STROKE_DEVICE_STATE 

INQ_TEXT  ALIGNMENT 

INQ_TEXT  COLOUR  INDEX 

INQ_TEXT_EXTENT 

INQ  TEXT  FACILITIES 

INQ  TEXT  FONT  AND  PRECISION 

INQ  TEXT  INDEX 

INQ  TEXT  PATH 

INQ  TEXT  REPRESENTATION 

INQ  VALUATOR  DEVICE  STATE 

INQ  WS  CATEGORY 

INQ  WS  CLASSIFICATION 

INQ  WS  CONNECTION  AND  TYPE 

INQ  WS  DEFERRAL  AND  UPDATE  STATES 

INQ  WS  MAX  NUMBER 

INQ  WS  STATE 

INQ_WS_TRANSFORMATION 

MAX 

INQ_MAX_LENGTH_OF_WS_STATE  TABLES 

INQ  MAX  NORMALIZATION  TRANSFORMATION  NUMBER 

inq_ws_max_numbers 

WS 

ACTI V  ATE_W  S 

ASSOCIATE  SEGMENT  WITH  WS 

CLEAR  WS 

CLOSE  WS 

COPY_SEGMENT  TO  WS 

DEACTIVATE  WS 

DELETE  SEGMENT  FROM  WS 

ENQ_DYNAMIC  MODIFICATION  OF  WS  ATTRIBUTES 

INQJJST  OF  AVAILABLE  WS  TYPE 

INQ_MAX  LENGTH  OF  WS  STATE  TABLES 

INQ_SET  OF  ACTIVE  WS 

inq_set_of_associated  WS 

INQ_S  ET_OF_OPEN_  W  S 

INQ  SET  OF  SEGMENT  NAMES  ON  WS 

INQ  WS-CATEGORY 

INQ_WS_CLASSIFICATION 

inq_ws_connection_and  TYPE 

INQ_WS  DEFERRAL  AND  UPDATE  STATES 

INQ  WS  MAX  NUMBER 

INQ_WS  STATE 

INQ  WS  TRANSFORMATION 

OPEN_WS 

REDRAW  ALL  SEGMENTS  ON  WS 

SET  WS  VIEWPORT 

SET_WS_WINDOW 

UPDATE  WS 
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GKS  Function  Names  and  Ada  Names  Ordered  Alphabetically  by  Ada  Bound  Name 


Ada  Bound  Name 

GKS  Function 

ACCUMULATE_TRANSFORMATION_MATRIX 

ACCUMULATE  TRANSFORMATION 
MATRIX 

ACTIVATE_WS 

ASS  OCI  ATE_S  EG  MENT_WITH_WS 

ACTIVATE  WORKSTATION 

ASSOCIATE  SEGMENT  WITH 
WORKSTATION 

AWAIT_EVENT 

AWAIT  EVENT 

CELL  ARRAY 

CLEAR  WS 

CLOSE  GKS 

CLOSE  SEGMENT 

CLOSE_WS 

COPY  SEGMENT  TO  WS 

CREATE_SEGMENT 

CELL  ARRAY 

CLEAR  WORKSTATION 

CLOSE  GKS 

CLOSE  SEGMENT 

CLOSE  WORKSTATION 

COPY  SEGMENT  TO  WORKSTATION 
CREATE  SEGMENT 

DEACTIVATE  WS 

DELETE_S  EG  MENT 

DELETE_SEGMENT_FROM_WS 

DEACTIVATE  WORKSTATION 

DELETE  SEGMENT 

DELETE  SEGMENT  FROM 

EMERGENCY_CLOSE_GKS 

WORKSTATION 

EMERGENCY  CLOSE  GKS 

ERROR_  HANDLING 

ERROR  LOGGING 

ESCAPE 

EVALUATE_TRANSFORMATION_MATRIX 

ERROR  HANDLING 

ERROR  LOGGING 

ESCAPE 

EVALUATE  TRANSFORMATION 
MATRIX 

FILL_AREA 

FLUSH_DEVICE_E  VENTS 

FILL  AREA 

FLUSH  DEVICE  EVENTS 

GDP 

GET  CHOICE 

GET  ITEM  TYPE  FROM  GKSM 

GET_LOCATOR 

GET_PICK 

GET_STRING 

GET_STROKE 

GET_' VALUATOR 

GENERALIZED  DRAWING  PRIMITIVE 
GET  CHOICE 

GET  ITEM  TYPE  FROM  GKSM 

GET  LOCATOR 

GET  PICK 

GET  STRING 

GET  STROKE 

GET  VALUATOR 

INITIALISE  CHOICE 

INITIALISE  LOCATOR 

INITIALISE  PICK 

INITIALISE  STRING 

INITIALISE  STROKE 

INITIALISE  VALUATOR 

INQ_CHOICE  DEVICE  STATE 

INQ  CLIPPING 

INTIALISE  CHOICE 

INITIALISE  LOCATOR 

INITIALISE  PICK 

INITIALISE  STRING 

INITIALISE  STROKE 

INITIALISE  VALUATOR 

INQUIRE  CHOICE  DEVICE  STATE 
INQUIRE  CLIPPING 
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Table  3 

GKS  Function  Names  and  Ada  Names  Ordered  Alphabetically  by  Ada  Bound  Name 

(Continued) 


Ada  Bound  Name  GKS  Function 

INQ_COLOUR_FACILITIES  INQUIRE  COLOUR  FACILITIES 

INQ_COLOUR_REPRESENTATION  INQUIRE  COLOUR  REPRESENTATION 

INQ_CURRENT_INDIVIDUAL_ATTRIBUTE_VALUES  INQUIRE  CURRENT  INDIVIDUAL 

ATTRIBUTE  VALUES 

The  following  functions  are  a  one-to-many  mapping  of  the  GKS  function 
"inquire  current  individual  attribute  values:. 


INQ_CH  AR_E  XPANS  ION_F  ACTOR 
INQ_CHAR_SPACING 
INQ_FILL_AREA_COLOUR_INDEX 
INQ_FILL_AREA_INTERIOR_STYLE 

inq_fill_area_style_index 

INQ_LINETYPE 

inq_linewidth_scale_factor 

INQ_LIST_OF_ASF 

inq_polyline_colour_index 

INQ_POLYMARKER_COLOUR_INDEX 
INQ_POLYMARKER_SIZE_SCALE_F  ACTOR 
INQ_POLYMARKER_TYPE 
INQ_TEXT_COLOURJNDEX 
INQ_TEXT_FONT_AND_PRECISION 


inq_current_normalization 

TRANSFORMATION_NUMBER 
INQ_CURRENT_PICK_I  D_V  ALUE 

INQ_CURRENT_PRIMITIVE_ 

ATTRIBUTE_VALUES 


INQUIRE  CURRENT  NORMALIZATION 
TRANSFORMATION  NUMBER 
INQUIRE  CURRENT  PICK  IDENTIFIER 
VALUE 

INQUIRE  CURRENT  PRIMITIVE 
ATTRIBUTE  VALUES 


The  following  functions  are  a  one-to-many  mapping  of  the  GKS  function 
"inquire  current  primitive  attribute  values". 

inq_char_base_vector 

INQ_CHAR_HEIGHT 

INQ_CHAR_WIDTH 

INQ_CHAR_UP_VECTOR 

INQ_FILL_AREA_INDEX 

INQ_PATTERN_HEIGHT_' VECTOR 

INQ_PATTERN_REFERENCE_POINT 

INQ_PATTERN_WIDTH_VECTOR 

inq_polyline_index 

inq_polymarker_index 

INQ_TEXT_ALIGNMENT 
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GKS  Function  Names  and  Ada  Names  Ordered  Alphabetically  by  Ada  Bound  Name 

(Continued ) 


Ada  Bound  Name 

INQJTEXTJNDEX 

INQ_TEXT_PATH 

INQ_DEFAULT_CHOICE_DEVICE_DATA 
INQ_DEFAULT_DEFERR  AL_ST  ATE_V  ALUES 
INQ_DEFAULT_LOCATOR_DEVICE_DATA 
INQ_DEFAULT_PICK_DEVICE_DATA 
INQ_DEF  AULT_STR  ING_DE  VICE_D  AT  A 

inq_default_stroke_device_data 

inq_default_valuator_device_data 

INQ_DISPLAY_SPACE_SIZE 

INQ_DYNAMIC_MODIFICATION_OF_ 

S  EG  MENT_  ATTR I B  UTES 
INQ_DYNAMIC_MODIFICATION_OF_ 
WS_ATTRIBUTES 

inq_fill_area_facilities 

INQ_FI  LL_ARE  A_REPRESENT  ATION 
INQ_GDP 

INQ_INPUT_QUEUE_OVERFLOW 

inq_level_of_gks 

INQ_LIST_OF_AVAILABLE_GDP 

INQ_LIST_OF_AVAILABLE_WS_TYPES 

inq_list_of_colour_indices 

INQ_LIST_OF_FILL_AREA_INDICES 
IN  Q_L1  ST_OF_NOR  M  ALIZ  ATION_ 
TRANSFORMATION_NUMBERS 
INQ_LIST_OF_PATTERN_INDICES 
INQ_LIST_OF_POLYLlNE_INDICES 

inq_list_of_polymarker_indices 

INQ_LIST_OF_TEXT_INDICES 

INQ_LOCATOR_DEVICE_STATE 

INQ_MAX_LENGTH_OF_WS_STATE_TABLES 


GKS  Function 


INQUIRE  DEFAULT  CHOICE  DEVICE 
DATA 

INQUIRE  DEFAULT  DEFERRAL 
STATE  VALUES 

INQUIRE  DEFAULT  LOCATOR  DEVICE 
DATA 

INQUIRE  DEFAULT  PICK  DEVICE 
DATA 

INQUIRE  DEFAULT  STRING  DEVICE 
DATA 

INQUIRE  DEFAULT  STROKE  DEVICE 
DATA 

INQUIRE  DEFAULT  VALUATOR 
DEVICE  DATA 

INQUIRE  DISPLAY  SPACE  SIZE 
INQUIRE  DYNAMIC  MODIFICATION 
OF  SEGMENT  ATTRIBUTES 
INQUIRE  DYNAMIC  MODIFICATION 
OF  WORKSTATION  ATTRIBUTES 
INQUIRE  FILL  AREA  FACILITIES 
INQUIRE  FILL  AREA 
REPRESENTATION 
INQUIRE  GENERALIZED  DRAWING 
PRIMITIVE 

INQUIRE  INPUT  QUEUE  OVERFLOW 
INQUIRE  LEVEL  OF  GKS 
INQUIRE  LIST  OF  AVAILABLE 
GENERALIZED  DRAWING  PRIMITIVES 
INQUIRE  LIST  OF  AVAILABLE 
WORKSTATION  TYPES 
INQUIRE  LIST  OF  COLOUR  INDICES 
INQUIRE  LIST  OF  FILL  AREA  INDICES 
INQUIRE  LIST  OF  NORMALIZATION 
TRANSFORMATION  NUMBERS 
INQUIRE  LIST  OF  PATTERN  INDICES 
INQUIRE  LIST  OF  POLYLINE  INDICES 
INQUIRE  LIST  OF  POLYMARKER 
INDICES 

INQUIRE  LIST  OF  TEXT  INDICES 
INQUIRE  LOCATOR  DEVICE  STATE 
INQUIRE  MAXIMUM  LENGTH  OF 
WORKSTATION  STATE  TABLES 
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Table  3 

GKS  Function  Names  and  Ada  Names  Ordered  Alphabetically  by  Ada  Bound  Name 

(Continued) 


Ada  Bound  Name 

GKS  Function 

INQ_MAX  NORMALIZATION 
TRANSFORMATION_NUMBER 
INQ_MORE_SIMULTANEOUS_EVENTS 

INQUIRE  MAXIMUM  NORMALIZATION 
TRANSFORMATION  NUMBER 

INQUIRE  MORE  SIMULTANEOUS 
EVENTS 

INQ  NAME  OF  OPEN_SEGMENT 
INQ_NORMALIZATION_TRANSFORMATION 

INQUIRE  NAME  OF  OPEN  SEGMENT 
INQUIRE  NORMALIZATION 
TRANSFORMATION 

INQ_NUMBER_OF_AVAILABLE_LOGICAL_ 

INPUT  DEVICES 

INQ  NUMBER  OF  SEGMENT 

PRIORITIES  SUPPORTED 

INQ  OPER ATEN G_S T ATE_ V ALUE 

INQ_PATTERN  FACILITIES 

INQ  PATTERN  REPRESENTATION 

INQ  PICK  DEVICE  STATE 

INQJPIXEL 

INQ  PIXEL  ARRAY 

INQ  PIXEL  ARRAY  DIMENSION 

INQ  POLYLINE  FACILITIES 

inq_polyline_representation 

INQUIRE  NUMBER  OF  AVAILABLE 
LOGICAL  INPUT  DEVICES 

INQUIRE  NUMBER  OF  SEGMENT 
PRIORITIES  SUPPORTED 

INQUIRE  OPERATING  STATE  VALUE 
INQUIRE  PATTERN  FACILITIES 
INQUIRE  PATTERN  REPRESENTATION 
INQUIRE  PICK  DEVICE  STATE 

INQUIRE  PIXEL 

INQUIRE  PIXEL  ARRAY 

INQUIRE  PIXEL  ARRAY  DIMENSIONS 
INQUIRE  POLYLINE  FACILITIES 
INQUIRE  POLYLINE 

REPRESENTATION 

INQ  POLYMARKER  FACILITIES 
INQ_POLYMARKER_REPRESENTATION 

INQUIRE  POLYMARKER  FACILITIES 
INQUIRE  POLYMARKER 
REPRESENTATION 

inq_predefined_colour_representation 

INQUIRE  PREDEFINED  COLOUR 
REPRESENTATION 

inq_predefined_fill_area_representation 

INQUIRE  PREDEFINED  FILL  AREA 
REPRESENTATION 

inq_predefined_pattern_representation 

INQUIRE  PREDEFINED  PATTERN 
REPRESENTATION 

inq_predefined_polyline_representation 

INQUIRE  PREDEFINED  POLYLINE 
REPRESENTATION 

INQ  PREDEFINED  POLYMARKER 

REPRESENTATION 

inq_predefined_text_representation 

INQUIRE  PREDEFINED  POLYMARKER 
REPRESENTATION 

INQUIRE  PREDEFINED  TEXT 
REPRESENTATION 

INQ  SEGMENT  ATTRIBUTES 

inq_set_of_active_ws 

INQUIRE  SEGMENT  ATTRIBUTES 
INQUIRE  SET  OF  ACTIVE 
WORKSTATIONS 

inq_set_of_associated_ws 

INQUIRE  SET  OF  ASSOCIATED 
WORKSTATIONS 

IN  Q_S  ET_OF_OPEN_  W  S 

INQUIRE  SET  OF  OPEN 
WORKSTATIONS 

inq_set_of_segment_names_in_use 

INQUIRE  SET  OF  SEGMENT  NAMES  IN 
USE 

(Continued  on  Next  Page) 
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GKS  Function  Names  and  Ada  Names  Ordered  Alphabetically  by  Ada  Bound  Name 

(Continued) 


Ada  Bound  Name 

GKS  Function 

IN  Q_S  ET_OF_S  EG  MENT_N  AMES_ON_W  S 

INQUIRE  SET  OF  SEGMENT  NAMES 

ON  WORKSTATION 

INQ_STRING_DEVICE  STATE 

INQ_STROKE  DEVICE  STATE 

INQ  TEXT  EXTENT 

INQ  TEXT  FACILITIES 

inq_text_representation 

INQ  VALUATOR  DEVICE  STATE 

INQ  WS  CATEGORY 

INQ_WS_CLASSIFICATION 

INQUIRE  STRING  DEVICE  STATE 
INQUIRE  STROKE  DEVICE  STATE 
INQUIRE  TEXT  EXTENT 

INQUIRE  TEXT  FACILITIES 

INQUIRE  TEXT  REPRESENTATION 
INQUIRE  VALUATOR  DEVICE  STATE 
INQUIRE  WORKSTATION  CATEGORY 
INQUIRE  WORKSTATION 
CLASSIFICATION 

INQ_WS_CONNECTION_AND_TYPE 

INQUIRE  WORKSTATION 

CONNECTION  AND  TYPE 

INQ_WS_DEFERRAL_AND_UPDATE_STATES 

INQUIRE  WORKSTATION  DEFERRAL 
AND  UPDATE  STATES 

INQ_WS_MAX_NUMBERS 

INQUIRE  WORKSTATION  MAXIMUM 
NUMBER 

INQ_WS_STATE 

INQ_WS_TRANSFORMATION 

INQUIRE  WORKSTATION  STATE 
INQUIRE  WORKSTATION 

INSERT  SEGMENT 

INTERPRET _ITEM 

TRANSFORMATION 

INSERT  SEGMENT 

INTERPRET  ITEM 

MESSAGE 

MESSAGE 

OPEN  GKS 

OPEN_WS 

OPEN  GKS 

OPEN  WORKSTATION 

POLYLINE 

POLYMARKER 

POLYLINE 

POLYMARKER 

READJTEM  FROM  GKSM 
REDRAW_ALL_SEGMENTS_ON_WS 

READ  ITEM  FROM  GKSM 

REDRAW  ALL  SEGMENTS  ON 

RENAME  SEGMENT 

REQUEST  CHOICE 

REQUEST  LOCATOR 

REQUEST  PICK 

REQUEST  STRING 

REQUEST  STROKE 

REQUESTJVALUATOR 

WORKSTATION 

RENAME  SEGMENT 

REQUEST  CHOICE 

REQUEST  LOCATOR 

REQUEST  PICK 

REQUEST  STRING 

REQUEST  STROKE 

REQUEST  VALUATOR 

SAMPLE  CHOICE 

SAMPLE  LOCATOR 

SAMPLE  PICK 

SAMPLE  STRING 

SAMPLE  CHOICE 

SAMPLE  LOCATOR 

SAMPLE  PICK 

SAMPLE  STRING 
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GKS  Function  Names  and  Ada  Names  Ordered  Alphabetically  by  Ada  Bound  Name 

(Continued ) 


Ada  Bound  Name 

SAMPLE_STROKE 
S  AMPLE_V  ALU  ATOR 

SELECT_NORMAJLIZATION_TRANSFORMATION 

SET_ASF 

SET_CHAR_EXPANSION_F  ACTOR 

S  ET_C  HAR_HE  IG  HT 

SETCHARSPACING 

S  ET_CHAR_UP_VECTOR 

SET_CHOICE_MODE 

SET_CLIPPING_INDICATOR 

SET_COLOUR_REPRESENTATION 

SET_DEFERRAL_STATE 

SET_DETECTABILITY 

SET_FILL_AREA_COLOUR_INDEX 

SET_FILL_AREA_INDEX 

SET_FILL_AREA_INTERIOR_STYLE 

SET_FILL_AREA_REPRESENTATION 

S  ET_FILL_  ARE  A_S  TYLE_INDEX 

SET_HIGHLIGHTING 

SET_LINETYPE 

SET_LINEWIDTH_SCALE_FACTOR 

SET_LOCATOR_MODE 

SET_MARKER_SIZE_SCALE_FACTOR 

SET_MARKER_TYPE 

SET_PATTERN_REFERENCE_POINT 

SET_PATTERN_REPRESENTATION 

SET_PATTERN_SIZE 

SET_PICK_ID 

SET_PICK_MODE 

SET_POLYLINE_COLOUR_INDEX 

SET_POLYLINE_INDEX 

SET_POLYLINE_REPRESENTATION 

SET_POLYMARKER_COLOUR_INDEX 

SET_POLYMARKER_INDEX 

SET_POLYMARKER_REPRESENTATION 

S  ET_SEGMENT_PRIOR  IT  Y 

SET_SEGMENT_TRANSFORMATION 

SET_STRING_MODE 

SET_STROKE_MODE 

SET_TEXT_ALIGNMENT 

SET_TEXT_COLOUR_INDEX 

SET_TEXT_FONT_AND_PRECISION 

SET_TEXT_INDEX 

S  ET_TEXT_P  ATH 

SET_TEXT_REPRESENTATION 

SET_VALUATOR_MODE 


GKS  Function 

SAMPLE  STROKE 
SAMPLE  VALUATOR 
SELECT  NORMALIZATION 
TRANSFORMATION 
SET  ASPECT  SOURCE  FLAGS 
SET  CHARACTER  EXPANSION 
FACTOR 

SET  CHARACTER  HEIGHT 

SET  CHARACTER  SPACING 

SET  CHARACTER  UP  VECTOR 

SET  CHOICE  MODE 

SET  CLIPPING  INDICATOR 

SET  COLOUR  REPRESENTATION 

SET  DEFERRAL  STATE 

SET  DETECTABILITY 

SET  FILL  AREA  COLOUR  INDEX 

SET  FILL  AREA  INDEX 

SET  FILL  AREA  INTERIOR  STYLE 

SET  FILL  AREA  REPRESENTATION 

SET  FILL  AREA  STYLE  INDEX 

SET  HIGHLIGHTING 

SET  LINETYPE 

SET  LINEWIDTH  SCALE  FACTOR 

SET  LOCATOR  MODE 

SET  MARKER  SIZE  SCALE  FACTOR 

SET  MARKER  TYPE 

SET  PATTERN  REFERENCE  POINT 

SET  PATTERN  REPRESENTATION 

SET  PATTERN  SIZE 

SET  PICK  IDENTIFIER 

SET  PICK  MODE 

SET  POLYLINE  COLOUR  INDEX 

SET  POLYLINE  INDEX 

SET  POLYLINE  REPRESENTATION 

SET  POLYMARKER  COLOUR  INDEX 

SET  POLYMARKER  INDEX 

SET  POLYMARKER  REPRESENTATION 

SET  SEGMENT  PRIORITY 

SET  SEGMENT  TRANSFORMATION 

SET  STRING  MODE 

SET  STROKE  MODE 

SET  TEXT  ALIGNMENT 

SET  TEXT  COLOUR  INDEX 

SET  TEXT  FONT  AND  PRECISION 

SET  TEXT  INDEX 

SET  TEXT  PATH 

SET  TEXT  REPRESENTATION 

SET  VALUATOR  MODE 


(Continued  on  Next  Page) 
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(Continued) 


Ada  Bound  Name 

SET_VIEWPORT 

S  ET_V  I E  WPORT_INPUT_PRIOR  IT  Y 

SETJVISIBELITY 

SET_WINDOW 

S  ET_W  S_V  I E  W  PORT 

SET_WS_WINDOW 

TEXT 


OKS  Function 

SET  VIEWPORT 

SET  VIEWPORT  INPUT  PRIORITY 
SET  VISIBILITY 
SET  WINDOW 

SET  WORKSTATION  VIEWPORT 
SET  WORKSTATION  WINDOW 

TEXT 


UPDATE_WS  UPDATE  WORKSTATION 

WRITE_ITEM_TO_GKSM  WRITE  ITEM  TO  GKSM 


Alphabetical  (IKS  functions 

The  functions  are  in  the  same  order  when  listed  alphabetically  according  to  the  GKS  function  names  as  they 
tire  when  listed  alphabetically  according  to  the  bound  names.  Therefore,  Table  3,  provided  above, 
alphabetically  lists  the  GKS  functions. 


Table  4 

Alphabetical  List  of  (IKS  Functions  by  Level 


LEVEL  ma 

ACTIVATE_WS 

CLEARWS 

CLOSEGKS 

CLOSEWS 

DEACTIVATEJVVS 

ESCAPE 

FILL_AREA 

INQ_CL1PPING 

INQ_COLOUR_FACILITIES 

inq_colour_representation 

inq_current_individual_attribute_values 

The  following  functions  arc  a  one-to-many  mapping  of  the  GKS  function 
"inquire  current  individual  attribute  values": 

inq_char_expansion_factor 

inq_char_spacing 

inqjfill_area_colour_index 

inq_fill_area_interior_style 

inq_fill_area_style_index 

INQ_LINETYPE 

INQ_LINEWIDTH_SCALE_FACTOR 

1NQ_LIST_0F_ASF 
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Alphabetical  List  of  GKS  Functions  by  Level  (Continued) 


INQ_POLYLINE_COLOURJNDEX 

inq_polymarker_colour_index 

inq_polymarker_size_scale_factor 

inq_polymarker_type 

INQ_TEXT_COLOUR_INDEX 

INQ_TEXT_FONT_AND_PRECISION 

inq_current_normalization_transformation_number 

inq_current_primitive_attribute_values 

The  following  functions  are  a  onc-to-many  mapping  of  the  GKS  function 
"inquire  current  primitive  attribute  values": 

IN  Q_POL  YLINE_IN  DE  X 
INQ_POLYMARKER_INDEX 
INQ_TEXT_INDEX 
INQ_CHAR_HEIGHT 

inq_char_up_vector 

INQ_CHAR_WIDTH 
INQ_CHAR_BASE_  VECTOR 
IN  Q_TEXT_PATH 
INQ_TEXT_ALIGNMENT 

inq_fill_area_index 

inq_pattern_height_vector 

inq_pattern_width_vector 

inq_pattern_reference_point 

inq_display_space_size 

inq_fill_area_facilities 

INQ_LEVEL_OF_GKS 

INQ_LIST_OF_COLOUR_INDICES 

INQ_MAX_LENGTH_OF_WS_STATE_TABLES 

inq_normalization_transformation 

INQ_POLYLINE_FACILITIES 

inq_polymarker_facilities 

INQ_TEXT_EXTENT 

INQ_TEXT_FACILITIES 

IN  Q_W  S  _C  ONNECTI  ON_  AN  D_T  YPE 

INQ_WS_TRANSFORMATION 

OPEN_GKS 

OPEN_WS 

POLYLINE 

POLYMARKER 

SELECT_NORMALIZATION  .TRANSFORMATION 

SET_CHAR_HEIGHT 

SET_CHAR_UP_VECTOR 

SET_CL1PPING_INDICAT0R 

SET_COLOUR_REPRESENTATION 

SET_FILL_AREA_COLOUR_INDEX 

SET_FILL_AREA_INTERIOR_STYLE 

SET_LINETYPE 


(Continued  on  Next  Page) 
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SET_MARKER_TYPE 

SET_POLYLINE_COLOURJNDEX 

SET_POLYMARKER_COLOUR_INDEX 

SET_TEXT_ALIGNMENT 

SET_TEXT_COLOUR_INDEX 

SETVIEWPORT 

SET_W1ND0\V 

SET_WS_VIEWPORT 

SET_WS_WINDOW 

TEXT 

UPDATE_WS 


LEVEL  mb 


IN1TIALISE_CH0ICE 

INITIALISE_LOCATOR 

IN1TIALISE_STRING 

INITIAL1SE_STR0KE 

INITIALISER  ALUATOR 

INQ_CHOICE_DEVICE_STATE 

inq_default_choice_device_data 

INQ_DEFAULT_LOCATOR_DEVICE_DATA 
INQ_DEFAULT_STRING_DEVICE_DATA 
INQ_DEFA  ULT_STROKE_DEVICE_D  AT  A 
INQ_DEFAULT_VALUATOR_DEVICE_DATA 
INQ_LOCATOR_DEVICE_STATE 

IN  Q_NUM  BER_OF_AVAILAB  LE_LOG  IC  AL_INPUT_DE  VI CE  S 
INQ_STRING_DEVICE_STATE 

inq_stroke_device_state 

INQ_VALUATOR_DEVICE_STATE 

REQUEST_CHOICE 

REQUEST_LOCATOR 

REQUEST_STRING 

REQUEST_STROKE 

REQUEST_V  ALUATOR 

SET_CHOICE_MODE 

SET_LOCATOR_MODE 

SET_STRING_MODE 

SET_STROKE_MODE 

SET_VALUATOR_MODE 

SET_VIEWPORT_INPUT_PRIORITY 


LEVEL  me 


AWAIT_EVENT 
FLUSU_DEVICE_E  VENTS 
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GET_CHOICE 
GET_LOCATOR 
GET_STRING 
GET_STROKE 
GET_  VALUATOR 

inq_input_queue_overflow 

INQ_MORE_SIMULTANEOUS_E  VENTS 

SAMPLE_CHOICE 

SAMPLE_LOCATOR 

SAMPLE_STRING 

SAMPLE_STROKE 

S  AMPLE_V  ALU  AT  OR 

LEVEL  Oa 

CELL_ARRAY 

EMERGENCY_CLOSE_GKS 

ERROR_HANDLING 

ERROR_LOGGING 

GDP 

GET_ITEM_TYPE_FROM_GKSM 

INQ_GDP 

INQ_L  I S  T_OF_  A  V  A IL  AB  LE_G  DP 
INQ_LIST_OF_AVAILABLE_WS_TYPES 

INQ_LIST_OF_NORMALlZATION_TRANSFORMATION_NUMBER 

INQ_OPER  ATING_S  T  ATE_  V  ALUE 

INQ_PATTERN_FACILIT1ES 

INQ_PIXEL 

INQ_PIXEL_  ARRAY 

inq_pixel_array_dimensions 

IN  Q_PREDE  FINE  D_COLOUR_REPRESENT  ATION 

inq_predefined_fill_area_representation 

INQ_PREDEFINED_PATTERN_REPRESENT  ATION 

INQ_PREDEFINED_POLYLINE_REPRESENT ATION 

INQ_PREDEFINED_POLYMARKER_REPRESENTATION 

INQ_PREDEFINED_TEXT_REPRESENT ATION 

INQ_S  ET_OF_OPEN_W  S 

INQ_WS_CATEGORY 

INQ_WS_CLASSIFIC  ATION 

INQ_WS_DEFFERRAL_AND_UPDATE_STATES 

INQ_WS_STATE 

INTERPRET  _ITEM 

RE  A  D_ITEM_FROM_G  KS  M 

SET_ASF 

SET_CHAR_EXPANSION_F  ACTOR 
SET_CHAR_S  PACING 
SET_FILL_AREA_INDEX 
SET_FILL_AREA_STYLE_INDEX 
SET_LINEWIDTH_SCALE_FACTOR 


(Continued  on  Next  Page) 
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SET_MARKER_SIZE_SCALE_FACTOR 

SET_PATTERN_REFERENCE_POINT 

SET_PATTERN_SIZE 

SET_POLYLINE_INDEX 

SET  POLYMARKER JNDEX 

SET_TEXT_FONT_AND_PRECISION 

SET_TEXT_INDEX 

SET_TEXT_FONT_AND_PRECISION 

SET_TEXT_PATH 

WRITE_ITEM_TO_GKSM 

LEVEL  Ob 

NONE 


LEVEL  Oc 

NONE 


LEVEL  la 

AC  CUMUL  ATE_TR  ANS  FORM  ATION_MATRI  X 

CLOSEJSEGMENT 

CREATE_SEGMENT 

DELETE_SEGMENT 

DELETE_SEGMENT_FROM_WS 

EVALUATE_TRANSFORMATION_MATRIX 

inq_default_deferral_state_values 

inq_dynamic_modification_of_segment_attributes 

inq_dynamic_modiftcation_of_ws_attributes 

inq_fill_area_representation 

inq_list_of_fill_area_indices 

INQ_LIST_OF_PATTERN_ENDICES 

inq_list_of_polyline_indices 

INQ_LIST_OF_POLYMARKER_INDICES 

inq_list_of_text_indices 

I  NQ_N  A  M  E_OF_OPEN_S  EG  M  ENT 

INQ_NUMBER_OF_SEGMENT_PRIORITIES_SUPPORTED 

INQ_PATTERN_REPRESENTATION 

inq_polyline_representation 

INQ_POLYMARKER_REPRESENTATION 
I N  Q_S  EG  M  ENT_  ATTR 1 B  UTES 

inq_set_of_active_ws 

inq_set_of_associated_ws 

INQ_SET_OF_SEGMENT_NAMES_IN_USE 

1 N  Q_S  ET_0  F_S  EG  MEN T_N  A  MES  _ON_  W S 

1NQ_TEXT_REPRESENTATI0N 

INQ_WS_MAX_NUMBERS 

MESSAGE 

REDRAW_ALL_SEGMENTS_ON_\VS 
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RENAME_SEGMENT 

SET_DEFE  R  R  AL_S  TATE 

SET_FILL_AREA_REPRESENTATION 

SET_HIGHLIGHTING 

SET_PATTERN_REPRESENTATION 

SET_POLYLINE_REPRESENTATION 

S  ET_POL  Y  MAR  KER_REPRE  S  ENT  ATION 

SET_SEGMENT_PRIORITY 

S  ET_S  EG  MENT_TR  AN  S  FORMATION 

S  ET_TEXT_REPRES  ENT  ATION 

SETJVISIBILITY 

LEVEL  lb 

INITIALISE_PICK 

inq_current_pick_id_v  alue 

INQ_DEFAULT_PICK_DEVICE_DATA 

inq_pick_device_state 

REQUEST_PICK 

SET_DETECTABLILITY 

SET_PICK_ID 

SET_PICK_MODE 

LEVEL  lc 

GET_PICK 

SAMPLE_PICK 


LEVEL  2a 

A  S  S  OC I  ATE_S  EG  MENT_  W  IT  H_  W  S 

COPY_SEGMENT_TO_WS 

INSERT_SEGMENT 

LEVEL  2b 

NONE 

LEVEL  2c 

NONE 
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4.2  Data  Type  Definitions 

4.2.1  Abbreviations  Used  in  the  Data  Type  Definitions 

ASF  aspect  source  Hag 

CHAR  character 

DC  device  coordinate 

GDP  generalized  drawing  primitive 

GKS  graphical  kernel  system 

GKSM  graphical  kernel  system  metafile 

ID  identifier 

MAX  maximum 

NDC  normalized  device  coordinates 

WC  world  coordinate 

WS  workstation 

4.2.2  Alphabetical  List  of  Type  Definitions 

This  section  contains  an  alphabetical  listing  of  all  of  the  data  type  definitions  used  to  define  the  Ada  binding 
to  GKS.  Each  of  these  declarations  specifies  the  level  of  GKS  at  which  the  data  type  declaration  shall  be 
available  in  an  implementation  of  GKS  of  that  level  or  any  level  "above"  the  level  in  which  the  type 
declaration  is  first  needed  (same  as  for  functions).  Each  element  declared  also  includes  a  comment  about  the 
type  and/or  use  of  the  type.  Some  of  the  declarations  employ  constant  values  in  the  definition  of  the  type. 
All  of  these  constant  declarations  are  included  in  the  GKS_TYPES  package. 


ASF 


LEVEL  Oa 


type  ASF  is  (BUNDLED,  INDIVIDUAL); 

-  This  type  defines  an  aspect  source  flag  whose  value  indicates  whether  an  aspect 

-  of  a  primitive  should  be  set  from  a  bundle  table  or  from  an  individual  attribute. 


ASF_LIST 


LEVEL  Oa 


type  ASF_LIST  is 
record 

TYPE_OF_LINE_ASF 

WIDTH_ASF 

LINE_COLOUR_ASF 

TYPE_OF_MARKER_ASF 

S1ZE_ASF 

MARKER_COLOUR_ASF 

FONT_PRECISION_ASF 

EXPANSION_ASF 

SPACING_ASF 

TEXT_COLOUR_ASF 

INTERIOR_ASF 

STYLE_ASF 

FILL_AREA_COLOUR_ASF 
end  record; 


ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

-  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

-  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

ASF 

=  INDIVIDUAL; 

-  A  record  containing  all  of  the  aspect  source  flags,  with  components  indicating  the  specific  Hag. 
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ATTRIBUTES_FLAG  LEVEL  Oa 

type  ATTRIBUTES_FLAG  is  (CURRENT,  SPECIFIED); 

—  Indicates  whether  output  attributes  that  arc  to  be  used  for  prompting  and 
--  echoing  are  to  be  as  currently  set,  or  as  explicitly  specified. 


ATTRIBUTESJJSED  LEVEL  Oa 

package  A'I'l  RIBUTES_USED  is 

"new  GKS_LIST_UTILITIES  (ATTRIBUTES _USED_TYPE); 

—  Provides  for  a  list  of  the  attributes  used. 


ATTRIBUTES_USED_TYPE  LEVEL  Oa 

type  ATTRIBUTES_USED_TYPE  is 
(POL  YLINE_ATTRI  B  UTES , 

POL  YMARKER_  ATTRIBUTES, 

TEXT_ATTRIBUTES, 

FILL_AREA_  ATTRIBUTES); 


—  The  types  of  attributes  which  may  be  used  in  generating  output  for  a  GDP  and  in 

—  generating  prompt  and  echo  information  for  certain  prompt  and  echo  types  of 

—  certain  classes  of  input  devices. 


CHARJSXPANSION  LEVEL  ma 

type  CHAR_EXPANSION  is  new  SCALE_F ACTOR  range 

SCALE_FACTOR'SAFE_SMALL..SCALE_FACTOR'LAST; 

—  Defines  a  character  expansion  factor.  Factors  are  unitless,  and  must  be  greater  than 
—  zero. 


CHAR_S PACING  LEVEL  ma 

type  CHAR_SPACING  is  new  SCALE_FACTOR; 

—  Defines  a  character  spacing  factor.  The  factors  are  unitless.  A  positive  value  indicates 

—  the  amount  of  extra  space  between  characters  in  a  text  string,  and  a  negative  value 

—  indicates  the  amount  of  overlap  between  character  boxes  in  a  text  string. 
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CHOICE_DEVICE_NUMBER 

type  CHOICE_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

--  Provides  for  choice  device  identifiers. 

LEVEL  mb 

CHOICEPROMPT 

type  CHOICE_PROMPT  is  (OFF,  ON); 

—  Indicates  for  a  choice  prompt  and  echo  type  whether  a  specified  prompt  is  to 
—  be  displayed  or  not. 

LEVEL  mb 

CHOICE_PROMPTS 

package  CHOICE  PROMPTS  is 

new  GKS_LIST_UTILITIES  (CHOICE_PROMPT); 

-  Provides  for  lists  of  prompts. 

LEVEL  mb 

CHOICE_PROMPT_ECHO_TYPE 

type  C HO I C E_PR 0 M PT  EC HO_T Y PE  is  new  INTEGER; 

-  Defines  the  choice  prompt  and  echo  type. 

LEVEL  mb 

CHOICE_PROMPT_ECHO_TYPES 

package  CHOICE  PROMPT  ECHO  TYPES  is 

new  GKS_LIST_UTILITIES  (CHOICE_PROMPT_ECHO_TYPE); 

-  Provides  for  lists  of  choice  prompt  and  echo  types. 

LEVEL  mb 

CHOICEPROMPTSTRING 

LEVEL  mb 

type  CHOICE_PROMPT_STRING  (LENGTH  :  STRING_SMALL_NATURAL 
record 

CONTENTS  :  STRING  (1.. LENGTH); 
end  record; 

-  Provides  for  a  variable  length  prompt.  Objects  of  this  type  should  be  declared 

-  unconstrained  to  allow  for  dynamic  modification  of  the  length. 

:=  0)  is 
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CHOICE_PROMPT_STRING_ARRAY  LEVEL  mb 

type  CHOICE_PROMPT_STRING_ARRAY  is  array  (POSITIVE  range  <  >) 
of  CHOICE_PROMPT_STRING; 

—  Provides  for  an  array  of  prompt  strings. 


CHOICE_PROMPT_STRING_LIST  LEVEL  mb 

type  CHOICE_PROMPT_STRING_LIST(LENGTH:CHOICE_SMALL_NATURAL:=  0) 
is  record 

LIST  :  CHOICE_PROMPT_STRING_ARRAY  (L. LENGTH); 
end  record; 

—  Provides  for  lists  of  prompt  strings. 


CHOICE_REQUEST_STATUS  LEVEL  mb 

type  CHOICE_REQUEST_STATU S  is  (OK,  NOCHOICE,  NONE); 

—  Defines  the  status  of  a  choice  input  operation  for  the  request  function. 


CHOICE_SMALL_NATURAL  LEVEL  mb 

subtype  CHOICE_SMALL_NATURAL 

is  NATURAL  range  O..CHOICE_SMALL_NATURAL_MAX; 

—  This  is  a  subtype  declaration  which  allows  for  unconstrained  record 

—  objects  for  CHOICE_PROMPT_STRING_LIST  type  without  causing  the 

—  exception  STORAGE_ERROR  to  be  raised. 


CHOICE_STATUS  LEVEL  mb 

subtype  CHOICE_STATUS  is  CHOICE_REQUEST_STATUS  range  OK..NOCHOICE; 

—  Indicates  if  a  choice  was  made  by  the  operator  for  the  sample,  get,  and  inquiry 
—  functions. 


CHOICEJVALUE  LEVEL  mb 

type  CHOICE_VALUE  is  new  POSITIVE; 

—  Defines  the  choice  values  available  on  an  implementation. 
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CLIPPINGJNDICATOR  LEVEL  ma 

type  CLIPPINGJNDICATOR  is  (CLIP,  NOCLIP); 

—  Indicates  whether  or  not  clipping  is  to  be  performed. 


COLOUR. AVAILABLE  LEVEL  ma 

type  COLOUR  jWAILABLE  is  (COLOUR,  MONOCHROME); 

—  Indicates  whether  colour  output  is  available  on  a  workstation. 


COLOUR JNDEX  LEVEL  ma 

subtype  COLOUR  JNDEX  is  PIXEL  j:OLOUR  JNDEX 
range  O..PIXEL_COLOURJNDEX'LAST; 

-  Indices  into  colour  tables  are  of  this  type. 


COLOUR JNDICES  LEVEL  ma 

package  COLOUR  JNDICES  is  new  GKS  JJSTJJTILITIES  (COLOUR  JNDEX); 

--  Provides  for  a  set  of  colour  indices  which  are  available  on  a  particular  workstation. 


COLOUR.MATRIX  LEVEL  ma 

type  COLOUR J4ATRIX  is  array  (POSITIVE  range  <  >, POSITIVE  range  <  >) 

of  COLOUR  JNDEX; 


—  Provides  for  matrices  containing  colour  indices  corresponding  to  a 
--  cell  array  or  pattern  array. 


COLOUR  JtEPRESENTATION  LEVEL  ma 

type  COLOUR.REPRESENTATION  is 
record 

RED  :  INTENSITY; 

GREEN  :  INTENSITY; 

BLUE  :  INTENSITY; 

end  record; 


--  Defines  die  representation  of  a  colour  as  a  combination  of  intensities  in 
-  an  RGB  colour  system. 
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CONTROL_FLAG 

type  CONTROL_FLAG  is  (CONDITIONALLY,  ALWAYS); 

—  The  control  flag  is  used  to  indicate  the  conditions  under  which  the  display 
—  surface  should  be  cleared. 

LEVEL  ma 

DC 

package  DC  is  new  GKS  COORDINATED  YSTEM  (DC_TYPE); 

—  Defines  the  Device  Coordinate  System. 

LEVEL  ma 

DC_TYPE 

type  DC_TYPE  is  digits  PRECISION; 

-  The  type  of  a  coordinate  in  the  Device  Coordinate  System. 

LEVEL  ma 

DCJJNITS 

type  DCJJNITS  is  (METRES,  OTHER); 

—  Device  coordinate  units  for  a  particular  workstation  should  be  in  metres  unless 

LEVEL  ma 

—  the  device  is  incapable  of  producing  a  precisely  scaled  image,  and  appropriate  work- 
--  station  dependent  units  otherwise. 

DEFERRAL_MODE 

type  DEFERRAL JVIODE  is  (ASAP,  BNIG,  BNIL,  ASTI); 

—  Defines  the  four  GKS  deferral  modes. 

LEVEL  ma 

DEVICEJNUMBER 

package  DEVICE  JNUMBER_TYPE  is 

type  DEVICEJNUMBER  is  new  POSITIVE; 
end  DEVICE JNUMBER_TYPE; 

-  Logical  input  devices  are  referenced  as  device  numbers. 

LEVEL  mb 
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DISPLAY_CLASS 

type  DISPLAY  CLASS  is  (VECTOR  DISPLAY, 

RASTER  DISPLAY, 

OTHER_DISPLAY); 

--  The  classification  of  a  workstation  of  category  OUTPUT  or  OUTIN. 

LEVEL  0a 

DISPLAY_SURFACE_EMPTY 

type  DISPLAY_SURFACE_EMPTY  is  (EMPTY,  NOTEMPTY); 

—  Indicates  whether  the  display  surface  is  empty. 

LEVEL  0a 

DYNAMIC_MODIFICATION 

type  DYNAMIC_MODIFICATION  is  (IRG,  IMM); 

—  Indicates  whether  an  update  to  the  state  list  is  performed  immediately  (IMM) 

—  or  requires  implicit  regeneration  (IRG). 

LEVEL  la 

ECHO_S  WITCH 

type  ECHO_S WITCH  is  (ECHO,  NOECHO); 

—  Indicates  whether  or  not  echoing  of  the  prompt  is  performed. 

LEVEL  mb 

ERROR_NUMBER 

type  ERROR_NUMBER  is  new  INTEGER; 

—  Defines  the  type  for  error  indicator  values. 

LEVEL  ma 
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EVENT_DEVICE_NUMBER 


LEVEL  me 


type  EVENT_DEVICE_NUMBER  (CLASS  :  INPUT_CLASS  :=  NONE)  is 
record 


case  CLASS  is 
when  NONE 
when  LOCATORJNPUT 

when  STROKE JNPUT 

when  V ALUATOR_INPUT 

when  CHOICE  JNPUT 

when  PICK  JNPUT 

when  STRING  JNPUT 


end  case; 
end  record; 


=>  null; 

=>  LOCATOR  JL  VENT  J)E  VICE 

;  LOCATOR_  DEVICE_NUMBER; 

=>  STROKE  JiVENT_DEVICE 

:  STROKE J)EVICE_NUMBER; 

=>  VALUATOR_EVENT_DEVICE 
:  VALUATOR_DEVICE_NUMBER; 

=>  CHOICE_EVENT_DEVICE 

:  CHOICE_DEVICE_NUMBER; 

=>  PICK_EVENT_DEVICE 

:  PICK  J3E  VICE  JNUMBER; 

=>  STRING_EVENT_DEVICE 

:  STRING  JDEVICEJVUMBER; 


—  Provides  for  returning  any  class  of  device  number  from  the  event  queue. 


EVENT_OVERFLOW_DEVICE_NUMBER 


LEVEL  me 


type  EVENT_OVERFLOW_DEVICE_NUMBER 

(CLASS  :  INPUTQUEUEJTLASS  :=  LOCATOR_INPUT)  is 
record 


case  CLASS  is 
when  LOCATORJNPUT 

when  STROKE  JNPUT 

when  VALUATOR  JNPUT 

when  CHOICE  JNPUT 

when  PICK  JNPUT 

when  STRING  JNPUT 


end  case; 
end  record; 


=>  LOCATOR JEVENTJDEVICE 

:  LOCATOR_  DEVICE  JJJ MB ER; 

=>  STROKE JSVENT_DEVICE 

:  STROKE_DE  VICE  JSUMBER; 

=>  VALUATOR_EVENT_DEVICE 
:  VALUATOR_DEVICE_NUMBER; 

=>  CHOICE JiVENT_DEVICE 

;  CHOICE_DEVICE_NUMBER; 

=>  PICK_EVENT_DEVICE 
:  PICK_DEVICE_NUMBER; 

=>  STRING_EVENT_DEVICE 

:  STRING_DEVICE_NUMBER; 
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FILL_AREA_DATA 

type  FILL_  ARE  A_D  AT  A  (ATTRIBUTES 
record 

case  ATTRIBUTES  is 
when  SPECIFIED  => 
STYLE_ASF 
STYLE_INDEX_ASF 
COLOUR_ASF 
INDEX 
INTERIOR 
STYLE 

FILL_AREA_COLOUR 
when  CURRENT  =>  NULL; 
end  case; 
end  record; 


LEVEL  mb 

:  ATTRIBUTES_FLAG  :=  CURRENT)  is 


ASF; 

ASF; 

ASF; 

FILL_AREA_INDEX; 
INTERIOR  J5TYLE; 
STYLE  JNDEX; 
COLOUR JNDEX; 


—  A  record  containing  information  needed  for  input  data  records  to  specify  the 

—  appearance  of  a  filled  area.  It  is  also  used  for  results  of  inquiry  about  the  contents 

—  of  data  records.  The  information  stored  in  this  record  is  accessible  through  the 
--  use  of  the  subprograms  for  manipulating  data  records. 


FILL_AREA_INDEX  LEVEL  Oa 

type  FILL_AREAJNDEX  is  new  POSITIVE; 

—  Defines  fill  area  bundle  table  indices. 


FILL_AREA_INDICES  LEVEL  Oa 

package  FILL_AREA_INDICES  is 

new  GKS_LIST_UTILITIES  (FILL_AREA_INDEX); 

—  Provides  for  lists  of  Fdl  area  bundle  table  indices. 


GDPJD 


LEVEL  Oa 


type  GDPJD  is  new  INTEGER; 

—  Selects  among  the  kinds  of  Generalized  Drawing  Primitives. 
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GDPJDS 

package  GDP  IDS  is  new  GKS_LIST_UTILIT1ES  (GDP  ID); 

—  Provides  for  lists  of  Generalized  Drawing  Primitive  ID's. 

LEVEL  Oa 

GKS_LEVEL 

LEVEL  ma 

type  GKS.LEVEL  is  (Lma,  Lmb,  Lmc,  LOa,  LOb,  LOc,  Lla,  Lib,  Lie,  L2a,  L2b,  L2c); 

—  The  valid  Levels  of  GKS. 

GKSM_ITEM_TYPE 

type  GKSM_ITEM_TYPE  is  new  NATURAL; 

—  The  type  of  an  item  contained  in  a  GKSM  metafile. 

LEVEL  Oa 

HATCELSTYLE 

subtype  HATCH_STYLE  is  STYLEJNDEX; 

—  Defines  the  fill  area  hatch  styles  type. 

LEVEL  ma 

HATCH_STYLES 

package  HATCH_STYLES  is  new  GKS_LIST_UTILITIES  (HATCH_STYLE); 

-  Provides  for  lists  of  hatch  styles. 

LEVEL  ma 

HORIZONTAL_  ALIGNMENT 

type  HORIZONTAL, ALIGNMENT  is  (NORMAL,  LEET,  CENTRE,  RIGHT); 

-  The  alignment  of  the  text  extent  parallelogram  with  respect  to  the  horizontal 

—  positioning  of  the  text. 

LEVEL  ma 
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implementation_defined_error 

subtype  IMPLEMENTATION  DEFINED_ERROR  is  ERROR_NUMBER 
range  ERROR_NUMBER'FIRST  ..  -1; 

-  Defines  the  range  of  ERROR_NUMBERS  to  indicate  that  an  implementation 

-  defined  error  has  occurred. 

LEVEL  ma 

INDIVIDUAL_ATTRIBUTE_VALUES 

LEVEL  ma 

type  INDIVIDUAL_ATTRIBUTE_VALUES  is 
record 

TYPE  OF  LINE 

LINETYPE; 

WIDTH 

LINEWIDTH; 

LINE  COLOUR 

COLOUR JNDEX; 

TYPE  OF  MARKER 

MARKER  TYPE; 

SIZE 

MARKER  SIZE; 

MARKER  COLOUR 

COLOUR  INDEX; 

FONT  PRECISION 

TEXTFONTJPRECISION; 

EXPANSION 

CHAR  EXPANSION; 

SPACING 

CHAR  SPACING; 

TEXT  COLOUR 

COLOUR  INDEX; 

INTERIOR 

INTERIOR  STYLE; 

STYLE 

STYLE  INDEX; 

FILL  AREA  COLOUR 

COLOUR  INDEX; 

ASF 

ASF  LIST; 

end  record; 

--  A  record  containing  all  of  the  current  individual  attributes  for  the  procedure 

-  INQ_CURRENT_INDIVIDUAL_ ATTRIBUTED ALUES. 

INPUT_CLASS 

LEVEL  mb 

type  INPUT  CLASS  is  (NONE, 

LOCATOR  INPUT, 

STROKE  INPUT, 

VALUATOR  INPUT, 

CHOICE  INPUT, 

PICK  INPUT 

STRING  JNPUT); 

—  Defines  the  input  device  classifications  for  workstations  of  category  INPUT  or  OUTIN. 
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INPUT_QUEUE_CL  AS  S 

subtype  INPUT  QUEUE  CLASS  is  INPUT  CLASS  range 
LOCATORJNPUT  ..  STRING JNPUT; 

—  Defines  the  input  device  classifications  for  situations  in  which  the 
—  NONE  classification  is  impossible. 

LEVEL  me 

INPUT_STATUS 

type  INPUT_STATUS  is  (OK,  NONE); 

—  Defines  the  status  of  a  locator,  stroke,  valuator,  or  string  operation. 

LEVEL  mb 

INPUT_S  TR ING 

type  INPUT_STRING  (LENGTH  :  STRING_SMALL_NATURAL  :=  0)  is 
record 

CONTENTS  :  STRING  (L. LENGTH); 
end  record; 

-  Provides  a  variable  length  string.  Objects  of  this  type  should  be  declared 
--  unconstrained  to  allow  for  dynamic  modification  of  the  length. 

LEVEL  mb 

INTENSITY 

type  INTENSITY  is  digits  PRECISION  range  0.0.. 1.0; 

-  Defines  the  range  of  possible  intensities  of  a  colour. 

LEVEL  ma 

INTERIOR_STYLE 

type  INTERIOR_STYLE  is  (HOLLOW,  SOLID,  PATTERN,  HATCH); 

-  Defines  the  fill  area  interior  styles. 

LEVEL  ma 

INTERIOR_STYLES 

package  INTERIOR  STYLES  is 

new  GKS_LIST_UTILITIES  (INTERIOR_STYLE); 

-  Provides  for  lists  of  interior  styles. 

LEVEL  ma 
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INVALID_VALUESJNDICATOR  LEVEL  Oa 

type  INVALID_VALUES_INDICATOR  is  (ABSENT,  PRESENT); 

—  Indicates  whether  the  value  -1  (i.e.  "invalid")  is  absent  from  or  present 
--  in  the  PIXEL_ARRAY  parameter  returned  by  INQ_PIXEL_ARRAY. 


L ANGU AG E_B I  NDING_ERROR  LEVEL  Oa 

subtype  LANGUAGE_BrNDING_ERROR  is  ERROR_NUMBER 
range  2500  ..  2999; 

--  Defines  the  range  of  ERROR_NUMBERS  to  indicate  that  a  language  binding 
—  error  has  occurred. 


LINE  DATA 


LEVEL  mb 


type  LINE_DATA  (ATTRIBUTES  :  ATTRIBUTES_FLAG  :=  CURRENT)  is 
record 


case  ATTRIBUTES  is 
when  SPECIFIED  => 
LINE_ASF 
WIDTHASF 
COLOUR_ASF 
INDEX 
LINE 
WIDTH 

LINE_COLOUR 
when  CURRENT  =>  NULL; 
end  case; 
end  record; 


ASF; 

ASF; 

ASF; 

POLYLINE  .INDEX; 
LINETYPE; 
LINEWIDTH; 
COLOURJNDEX; 


-  A  record  containing  information  needed  for  input  data  records  to  specify  the 

-  appearance  of  prompting  and  echo  types.  It  is  also  used  for  results  of  inquiry  about 

-  the  contents  of  data  records.  The  information  stored  in  this  record  is  accessible  through 
--  die  use  of  the  subprograms  for  manipulating  data  records. 


LINETYPE 

type  LINETYPE  is  new  INTEGER; 


LEVEL  ma 


—  Defines  the  types  of  line  styles  provided  by  GKS. 
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LINETYPES  LEVEL  ma 

package  LINETYPES  is  new  GKS_LIST_UTILITIES  (LINETYPE); 

—  Provides  for  lists  of  line  types. 


LINE  WIDTH  LEVEL  ma 

type  LINEWIDTH  is  new  SCALE_FACTOR  range  O.O..SCALE_FACTOR'LAST; 

—  The  width  of  a  line  is  indicated  by  a  scale  factor. 


LOCATOR_DEVICE_NUMBER  LEVEL  mb 

type  LOCATOR_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

—  Provides  for  locator  device  identifiers. 


LOCATOR_PROMPT_ECHO_TYPE  LEVEL  mb 

type  LOCATOR_PROMPT_ECHO_TYPE  is  new  INTEGER; 

—  Defines  the  locator  prompt  and  echo  types  supported  by  the  implementation. 


LOC AT OR_PROMPT_ECHO_T YPE S  LEVEL  mb 

package  LOCATOR_PROMPT_ECHO_TYPES  is 

new  GKS_LIST_UTILITIES  (LOCATOR_PROMPT_ECHO_TYPE); 

—  Provides  for  lists  of  locator  prompt  and  echo  types. 
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MARKER  JDATA 

type  MARKER_DATA  (ATTRIBUTES 
record 

case  ATTRIBUTES  is 
when  SPECIFIED  => 
MARKER_ASF 
SIZE_ASF 
COLOUR_ASF 
INDEX 
MARKER 
SIZE 

MARKER_COLOUR 
when  CURRENT  =>  NULL; 
end  case; 
end  record; 


LEVEL  mb 

;  ATTRIBUTES_FLAG  :=  CURRENT)  is 


ASF; 

ASF; 

ASF; 

POLYMARKERJNDEX; 
MARKER_TYPE; 
MARKER_SIZE; 
COLOUR  JNDEX; 


—  A  record  containing  infonnation  needed  for  input  data  records  to  specify  the 

—  appearance  of  prompting  and  echo  types.  It  is  also  used  for  results  of  inquiry  about 

—  the  contents  of  data  records.  The  information  stored  in  this  record  is  accessible  through 

—  the  use  of  the  subprograms  for  manipulating  data  records. 


MARKER_SIZE  LEVEL  m a 

type  MARKER_SIZE  is  new  SCALE_FACTOR  range  O.O..SCALE_FACTOR’LAST; 

--  The  size  of  a  marker  is  indicated  by  a  scale  factor. 


MARKER_TYPE  LEVEL  ma 

type  MARKER_TYPE  is  new  INTEGER; 

—  Defines  the  type  for  markers  provided  by  GKS. 


MARKER_TYPES  LEVEL  ma 

package  MARKER_TYPES  is  new  GKS_LIST_UTILITIES  (MARKER_TYPE); 

--  Provides  for  lists  of  marker  types. 


MORE_EVENTS  LEVEL  me 

type  MORE_EVENTS  is  (NOMORE,  MORE); 

--  Indicates  whether  more  events  arc  contained  in  the  input  event  queue. 
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NDC 

package  NDC  is  new  GKS_COORDINATE_SYSTEM  (NDC_TYPE); 

—  Defines  the  Normalized  Device  Coordinate  System. 

LEVEL  ma 

NDC_TYPE 

type  NDC_TYPE  is  digits  PRECISION; 

—  Defines  the  type  of  a  coordinate  in  the  Normalized  Device  Coordinate  System. 

LEVEL  ma 

NEW_FRAME_NECESSARY 

type  NE W_FR A ME_NECE S S AR Y  is  (NO,  YES); 

—  Indicates  whether  a  new  frame  action  is  necessary  at  update. 

LEVEL  Oa 

OPERATING_MODE 

LEVEL  mb 

type  OPERATING_MODE  is  (REQUEST_MODE,  S AMPLE_MODE ,  EVENT_MODE); 

—  Defines  the  operating  modes  of  an  input  device. 

OPERATING_STATE 

type  OPER ATING_ST ATE  is  (GKCL,  GKOP,  WSOP,  WSAC,  SGOP); 

—  Defines  the  five  GKS  operating  states. 

LEVEL  ma 

PATTERN  JNDEX 

subtype  PATTERNJNDEX  is  STYLEJNDEX  range  E.STYLEJNDEX'LAST; 

—  Defines  the  range  of  pattern  table  indices. 

LEVEL  Oa 
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PATTERNJNDICES 

package  PATTERN  INDICES  is 

new  GKS_LIST_UTILITIES  (PATTERNJNDEX); 

—  Provides  for  lists  of  pattern  table  indices. 

LEVEL  0a 

PICK_DEVICE_NUMBER 

type  PICK_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

—  Provides  for  pick  devices. 

LEVEL  lb 

PICK_ID 

type  PICK_ID  is  new  POSITIVE; 

—  Defines  the  range  of  pick  identifiers  available  on  an  implementation. 

LEVEL  lb 

PICKJDS 

package  PICK_IDS  is  new  GKS_LIST_UTIL1TIES  (PICK_ID); 

--  Provides  for  lists  of  pick  identifiers. 

LEVEL  lb 

PICK_PROMPT_ECHO_TYPE 

type  PICK_PROMPT_ECHO_TYPE  is  new  INTEGER; 

—  Defines  the  pick  prompt  and  echo  type. 

LEVEL  lb 

PICK_PROMPT_ECHO_TYPES 

package  PICK_PROMPT_ECHO_TYPES  is  new  GKS_LIST_UTILITIES 
(PICK_PROMPT_ECHO_TYPE); 

—  Provides  for  lists  of  pick  prompt  and  echo  types. 

LEVEL  lb 
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PICK_REQUEST_STATUS  LEVEL  lb 

type  PICK_REQUEST_STATUS  is  (OK,  NOPICK,  NONE); 

—  Defines  the  status  of  a  pick  input  operation  for  the  request  function. 


PICK_STATUS  LEVEL  lb 

subtype  PICK_STATUS  is  PICK_REQUEST_STATUS  range  OK..NOPICK; 

—  Defines  the  status  of  a  pick  input  operation  for  the  sample,  get,  and  inquiry  functions. 


PIXEL_COLOUR JNDEX  LEVEL  ma 

type  PIXEL_COLOUR_INDEX  is  new  INTEGER  range  -  L. INTEGER 'LAST ; 

—  A  type  for  the  pixel  colour  where  the  value  -1  represents  an  invalid  colour  index. 


PIXEL_COLOUR_MATRIX  LEVEL  Oa 

type  PIXEL_COLOUR_MATRIX  is  array  (POSITIVE  range  <  >, 

POSITIVE  range  <  >)  of  PIXEL_COLOUR_INDEX; 

--  Provides  for  matrices  of  pixel  colours. 


POLYLINE  JNDEX  LEVEL  Oa 

type  POLYLINE  JNDEX  is  new  POSITIVE; 

—  Defines  the  range  of  polyline  indices. 


POLYLINE JNDICES  LEVEL  Oa 

package  POLYLINE_INDICES  is 

"  new  GKSJLISTJJTILITIES  (POLYLINE JNDEX); 

—  Provides  for  lists  of  polyline  indices. 
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POLYMARKERJNDEX  LEVEL  Oa 

type  POLYMARKERJNDEX  is  new  POSITIVE; 

—  Defines  the  range  of  polymarker  bundle  table  indices. 


POLYMARKER JNDICES  LEVEL  Oa 

package  POLYMARKER  JNDICES  is 

new  GKS_LIST_UTILITIES  (POLYMARKERJNDEX); 

—  Provides  for  lists  of  polymarker  indices. 


POSITIVE  TRANSFORMATION_NUMBER  LEVEL  Oa 

subtype  POSITIVE_TRANSFORMATION_NUMBER  is  TRANSFORMATIONJNUMBER 
range  1  ..  TRANSFORMATION  JNUMBER'LAST; 


-  A  normalization  transformation  number  corresponding  to  a  settable  transformation 


PRIMITIVE_  ATTRIBUTE  JVALUES 


LEVEL  ma 


type  PRIMITIVE jVrTRIBUTE_VALUES  is 
record 

INDEX  JAILYLINE 

INDEX_POLYMARKER 

INDEXJTEXT 

CHARJdEIGHT 

CHARUP_  VECTOR 

CHAR_WIDTH 

CHAR_BASE_VECTOR 

PATH 

ALIGNMENT 
INDEX_FILL_AREA 
PATTERN_WIDTH_VECTOR 
PATTERN_HEIGHT_VECTOR 
PATTERN  JlEFERENCEJ>OINT 
end  record; 


POL  YLINE_INDEX ; 

POLYMARKERJNDEX; 

TEXTJNDEX; 

WC. MAGNITUDE; 

WC. VECTOR; 

WC. MAGNITUDE; 

WC. VECTOR; 
TEXTJ’ATH; 
TEXT_ALIGNMENT ; 
FILL_AREAJNDEX; 
WC. VECTOR; 

WC.  VECTOR; 

WC. POINT; 


-  A  record  containing  all  of  the  current  primitive  attributes  for  the  procedure 

-  INQ_CURRENT_PRIMITIVE_ATTRIBUTE_VALUES. 
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RADIANS  LEVEL  la 

type  RADIANS  is  digits  PRECISION; 

—  Values  used  in  performing  segment  transformations  (rotation  angle).  Positive  indicates 
—  an  anticlockwise  direction. 


RANGE_OF_EXPANSIONS  LEVEL  ma 

type  RANGE_OF_EXPANSIONS  is 
record 

MIN  :CHAR_EXPANSION; 

MAX  :CHAR_EXPANSION; 
end  record; 


—  Provides  a  range  of  character  expansion  factors. 


RASTER JJNITS  LEVEL  ma 

type  RASTERJJNITS  is  new  POSITIVE; 

-  Defines  the  range  of  raster  units. 


RASTER  UNIT JSIZE  LEVEL  ma 

type  RASTER_UNIT_SIZE  is 
record 

X  ;  RASTERJJNITS; 

Y  ;  RASTERJJNITS; 
end  record; 

—  Defines  the  size  of  a  display  screen  in  raster  units  on  a  raster  device. 


REGENERATION JVIODE  LEVEL  Oa 

type  REGENERATION  JvlODE  is  (SUPPRESSED,  ALLOWED); 

—  Indicates  whether  implicit  regeneration  of  the  display  is  suppressed  or  allowed. 
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RELATIVE_PRIORITY 

type  RELATIVE_PRIORITY  is  (HIGHER,  LOWER); 

-  Indicates  the  relative  priority  between  two  normalization  transformations. 

LEVEL  ma 

RETURN_VALUE_TYPE 

type  RETURNJV ALUE_T YPE  is  (SET,  REALIZED); 

LEVEL  Oa 

--  Indicates  whether  the  returned  values  should  be  as  they  were  set  by  the  program 
—  they  were  actually  realized  on  the  device. 

or  as 

SCALE_FACTOR 

package  SCALE  FACTOR_TYPE  is 

type  SCALE  FACTOR  is  digits  PRECISION; 
end  SCALE_FACTOR_TYPE; 

--  The  type  used  for  unitless  scaling  factors. 

LEVEL  ma 

S  EG  MENT_DETECT  AB ILIT  Y 

type  SEGMENT_DETECTABILITY  is  (UNDETECTABLE,  DETECTABLE); 

--  Indicates  whether  a  segment  is  detectable  or  not. 

LEVEL  la 

SEGMENTJ4IGHLIGHTING 

type  SEGMENT J-IIGHLIGHTING  is  (NORMAL,  HIGHLIGHTED); 

--  Indicates  whether  a  segment  is  highlighted  or  not. 

LEVEL  la 

SEGMENT_NAME 

type  SEGMENT_NAME  is  new  POSITIVE; 

—  Defines  the  range  of  segment  names. 

LEVEL  la 
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SEGMENT_NAMES  LEVEL  la 

package  SEGMENT_NAMES  is  new  GKS_LIST_UTILITIES  (SEGMENT_NAME); 

—  Provides  for  lists  of  segment  names. 


SEGMENT_PRIORITY  LEVEL  la 

type  SEGMENT_PRIORITY  is  digits  PRECISION  range  0.0.. 1.0; 

—  Defines  the  priority  of  a  segment. 


SEGMENT_VISIBILITY  LEVEL  la 

type  SEGMENT_VISIBILITY  is  (VISIBLE,  INVISIBLE); 

—  Indicates  whether  a  segment  is  visible  or  not. 


S M ALL_N ATUR AL  LEVEL  ma 

subtype  S  M  ALL_N  ATUR  AL  is  NATURAL  range  O..SMALL_NATURAL_MAX; 

—  This  is  a  subtype  declaration  which  allows  for  unconstrained  record  objects  for  various 
-  record  types  without  causing  the  exception  STORAGE_ERROR  to  be  raised. 


STRING_DEVICE_NUMBER  LEVEL  mb 

type  STRING_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

—  Provides  for  string  device  number. 


STRING_PROMPT_ECHO_TYPE  LEVEL  mb 

type  STRING_PROMPT_ECHO_TYPE  is  new  INTEGER; 

-  Defines  the  string  prompt  and  echo  types. 
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STRING  JPROMPT_ECHO_TYPES  LEVEL  mb 

package  STRING_PROMPTJECHO_TYPES  is 

new  GKS_LIST_UTILITIES  (STRING_PROMPT_ECHO_TYPE); 

-  Provides  for  lists  of  string  prompt  and  echo  types. 

STRING_SMALL_NATURAL  LEVEL  ma 

subtype  STRING  J>  MALL  JNIATURAL  is  NATURAL 

range  O..STRING_SMALL_NATURAL_MAX; 

—  This  is  a  subtype  declaration  which  allows  for  unconstrained  record  objects  for  various 

—  string  record  types  without  causing  the  exception  STORAGE_ERROR  to  be  raised. 


STROKE_DEVICE_NUMBER  LEVEL  mb 

type  STROKE_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

—  Provides  for  stroke  device  numbers. 


STROKE_PROMPT_ECHO_TYPE  LEVEL  mb 

type  STROKE_PROMPT_ECHO_TYPE  is  new  INTEGER; 

—  Defines  the  stroke  prompt  and  echo  types. 


STROKE_PROMPT_ECHO_TYPES  LEVEL  mb 

package  STROKE_PROMPT_ECHO_TYPES  is 

new  GKS  JJSTUTILITIES  (STROKE  J’ROMPTECHOTYPE); 

—  Provides  for  lists  of  stroke  prompt  and  echo  types. 


STYLEJNDEX  LEVEL Oa 

type  STYLEJNDEX  is  new  INTEGER; 

-  A  style  index  is  cither  a  HATCH_STYLE  or  a  PATTERN_STYLE. 
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TEXT_ALIGNMENT  LEVEL  ma 

type  TEXT_ALIGNMENT  is 
rccord 

HORIZONTAL  :  HORIZONTAL_ALIGNMENT; 

VERTICAL  :  VERTICAL_ALIGNMENT; 

end  record; 

—  The  type  of  the  attribute  controlling  the  positioning  of  the  text  extent  parallelogram 

—  in  relation  to  the  text  position,  having  horizontal  and  vertical  components  as 

—  defined  above. 


TEXT_EXTENT_PARALLELOGRAM 


LEVEL  ma 


type  TEXT_EXTENT_PARALLELOGRAM  is 
record 


LOWER_LEFT 
LOWER_RIGHT 
UPPER_RIGHT 
UPPER_LEFT 
end  record; 


WC.POINT 

WC.POINT 

WC.POINT 

WC.POINT 


—  Defines  the  comer  points  of  the  text  extent  parallelogram  with  respect  to  the 

—  vertical  positioning  of  the  text. 


TEXT_FONT 


type  TEXT_FONT  is  new  INTEGER; 

--  Defines  the  types  of  fonts  provided  by  the  implementation. 


LEVEL  ma 


TEXT  FONT  PRECISION  LEVEL  ma 

type  TEXT_FONT_PRECIS ION  is 
rccord 

FONT  :  TEXT_FONT; 

PRECISION  :  TEXT_PRECISION; 

end  rccord; 

—  This  type  defines  a  record  describing  the  text  font  and  precision  aspect. 
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TEXT_FONT_PRECISIONS  LEVEL  ma 

package  TEXT_FONT_PRECISIONS  is 

new  GKS_LIST_UTILITIES  (TEXT_FONT_PRECISION); 

—  Provides  for  lists  of  text  font  and  precision  pairs. 


TEXTJNDEX  LEVEL  Oa 

type  TEXTJNDEX  is  new  POSITIVE; 

—  Defines  the  range  of  text  bundle  table  indices. 


TEXTJNDICES  LEVEL  Oa 

package  TEXTJNDICES  is  new  GKS  JJSTJJTILITIES  (TEXTJNDEX); 

--  Provides  for  lists  of  text  indices. 


TEXT_PATH 


LEVEL  ma 


type  TEXT_PATH  is  (RIGHT,  LEFT,  UP,  DOWN); 


—  The  direction  taken  by  a  text  suing. 


TEXT_PRECISION  LEVEL  ma 

type  TEXT_PRECISION  is  (STRING_PRECISION, 

CHARPRECISION, 

STROKEPRECISION); 

—  The  precision  with  which  text  appears. 


TRANSFORMATION_FACTOR  LEVEL  la 

type  TRANSFORMATION  FACTOR  is 
record 

X  :  NDCJTYPE; 

Y  :  NDC_TYPE; 
cntl  record; 

--  Scale  factors  used  in  building  transformation  matrices  for  performing  segment 
—  transformations. 
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TRANSFORMATION_MATRIX  LEVEL  la 

type  TRANSFORMATION_MATRIX  is  array  (1..2,  1..3)  of  NDC_TYPE; 

--  For  segment  transformations  mapping  within  NDC  space. 


TRANSFORMATION_NUMBER  LEVEL  ma 

type  TRANSFORMATION_NUMBER  is  new  NATURAL; 

-  A  normalization  transformation  number. 


TRANSFORMATION_PRIORITY_ARRAY  LEVEL  ma 

type  TRANSFORMATION_PRIORITY_ARRAY  is  array  (POSITIVE  range  <  >) 
of  TRANSFORMATION_NUMBER; 

—  Type  to  store  transformation  numbers. 


TRANSFORMATION_PRIORITY_LIST  LEVEL  ma 

type  TRANSFORMATION_PRIORITY_LIST(LENGTFI:SMALL_NATURAL:=0)  is 
record 

CONTENTS  :  TRANSFORMATION_PRIORITY_ARRAY  (L. LENGTH); 
end  record; 

—  Provides  for  a  prioritised  list  of  transformation  numbers. 


UPDATE_REGENERATION_FLAG  LEVEL  Oa 

type  UPDATE_REGENERATION_FLAG  is  (PERFORM,  POSTPONE); 

-  Flag  indicating  regeneration  action  on  display. 


UPDATE_STATE  LEVEL  Oa 

type  UPD ATE_STATE  is  (NOTPENDING,  PENDING); 

—  Indicates  whether  or  not  a  workstation  transformation  change  has  been  requested 
-  and  not  yet  provided. 
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VALUATOR_DEVICE_NUMBER  LEVEL  mb 

type  VALUATOR_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

—  Provides  for  valuator  device  identifiers. 


V ALU ATOR_INPUT_V ALUE  LEVEL  mb 

type  VALUATOR _INPUT_V ALUE  is  digits  PRECISION; 

—  Defines  the  range  of  accuracy  of  input  values  on  an  implementation. 


VALUATOR_PROMPT_ECHO_TYPE  LEVEL  mb 

type  VALUATOR_PROMPT_ECHO_TYPE  is  new  INTEGER; 

—  Defines  the  possible  range  of  valuator  prompt  and  echo  types. 


V ALUATOR_PROMPT_ECHO_TYPES  LEVEL  mb 

package  VALUATOR_PROMPT_ECHO_TYPES  is 

new  GKS_LIST_UTILITIES  ( V ALU ATOR  JPROMPT_EC  HO_T  YPE) ; 

--  Provides  for  lists  of  valuator  prompt  and  echo  types. 


VARIABLE_COLOUR_MATRIX  LEVEL  ma 

type  V ARI ABLE_COLOUR_M ATRIX  (DX  :  S M AL L_N ATUR AL  :=  0; 

DY  ;  SMALL_NATURAL  :=  0)  is 

record 

MATRIX  :  COLOUR_MATRIX  (1..DX,  1..DY); 
end  record; 

--  Provides  for  variable  sized  matrices  containing  colour  indices  corresponding  to 
--  a  cell  array  or  pattern  array. 


Page  50 


American  National  Standard  X3. 124. 3-1989 


Data  Types 


V ARIABLE_CONNECTION_ID  LEVEL  ma 

type  VARIABLECONNECTIONID 

(LENGTH  :  STRING_SMALL_NATURAL  :=  0)  is 
record 

CONNECT  :  STRING  (L. LENGTH); 
end  record; 

—  Defines  a  variable  length  connection  identifier  for 
-  INQ_WS_CONNECTION_ AN  D_T YPE 


V ARI ABLE_PIXEL_COLOUR_MATRIX  LEVEL  0a 

type  VARIABLE_PIXEL_COLOUR_MATRIX  (DX  :  SMALL_NATURAL  :=  0; 

DY  :  SMALL_NATURAL  :=  0)  is 

record 

MATRIX  :  PIXEL_COLOUR_MATRIX  (1..DX,  1..DY); 
end  record; 

-  Provides  for  variable  sized  matrices  of  pixel  colours. 


VERTICAL_ ALIGNMENT  LEVEL  ma 

type  VERTICAL_ ALIGNMENT  is  (NORMAL,  TOP,  CAP,  HALF,  BASE,  BOTTOM); 

-  The  alignment  of  the  text  extent  parallelogram  with  respect  to  the  vertical 

-  positioning  of  the  text. 


wc 

package  WC  is  new  GKS_COORDINATE_S  YSTEM  (WC_TYP^' 

--  Defines  the  World  Coordinate  System. 

LEVEL  ma 

WC_TYPE 

type  WC_TYPE  is  digits  PRECISION; 

—  Defines  the  range  of  accuracy  for  World  Coordinate  types. 

LEVEL  ma 
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WS_CATEGORY  LEVEL  Oa 

type  WS_CATEGORY  is  (OUTPUT,  INPUT,  OUTIN,  WISS,  MO,  MI); 

—  Type  for  GKS  workstation  categories. 


WS_ID 


LEVEL  ma 


type  WS  JD  is  new  POSITIVE; 

—  Defines  the  range  of  workstation  identifiers. 


WS  JDS  LEVEL  ma 

package  WS  JDS  is  new  GKS  JISTJJTILITIES  (WS  JD); 

—  Provides  for  lists  of  workstation  identifiers. 


WS_STATE  LEVEL  Oa 

type  WS_STATE  is  (INACTIVE,  ACTIVE); 

—  The  state  of  a  workstation. 


WSJTYPE  LEVEL  ma 

type  WS_TYPE  is  new  POSITIVE; 

—  Range  of  values  corresponding  to  valid  workstation  types.  Constants  specifying  names 
—  for  the  various  types  of  workstations  should  be  provided  by  an  implementation. 


WSJTYPES  LEVEL  ma 

package  WS  JWPES  is  new  GKS  JJSTJJTILITIES  (WSJTYPE); 

—  Provides  for  lisLs  of  workstation  types. 


4.2.3  Alphabetical  List  of  Private  Type  Definitions 

This  section  contains  an  alphabetical  listing  of  all  the  private  type  definitions  used  to  define  the  Ada  binding 
to  GKS.  Each  of  these  declarations  specifies  the  level  of  GKS  at  which  the  data  type  declaration  shall  be 
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available  in  an  implementation  of  GKS  of  that  level  or  any  level  "above"  the  level  in  which  the  type 
declaration  is  first  needed  (same  as  for  functions).  All  of  these  elements  arc  Ada  PRIVATE  type  declarations. 
These  declarations  are  included  in  the  GKS  package  to  facilitate  the  manipulations  of  the  private  types. 


CHOICE_DATA_RECORD  LEVEL  mb 

type  CHOICE_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

CHOICE_PROMPT_ECHO_TYPE  :=  DEFAULT_CHOICE)  is  private; 

—  Defines  a  record  for  initialising  choice  input.  The  structure  of  the  record  is 

—  implementation-defined.  Since  it  is  a  private  type,  the  components  of  the  record 

—  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating  the 

—  input  data  records  (5.2.1). 


GKSM_DATA_RECORD  LEVEL  Oa 

type  GKS M_D AT A_RECOR D  (TYPE_OF_ITEM  :  GKSM_ITEM_TYPE  :  =0; 

LENGTH  :  NATURAL  :  =0)  is  private; 

—  A  data  record  for  GKSM  metafiles.  Since  it  is  a  private  type,  the  components  of  the 

—  record  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating 

—  the  metafile  data  records  (5.2.4). 


LOC ATOR_D AT A_RECOR D  LEVEL  mb 

type  LOCATOR_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

L OC AT OR_PR O MPT  EC H 0_T YPE  :=  DEFAULT_LOCATOR)  is  private; 

—  Defines  a  record  for  initialising  locator  input.  The  structure  of  the  record  is 

—  implementation-defined.  Since  it  is  a  private  type,  the  components  of  the  record 

—  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating  the  input 

—  data  records  (5.2.1). 


PICK_DATA_RECORD  LEVEL  lb 

type  PICK_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

PICK_PROMPT_ECHO_TYPE  :=  DEFAULT_PICK)  is  private; 

—  Defines  a  record  for  initialising  pick  input.  The  structure  of  the  record  is 

—  implementation-defined.  Since  it  is  a  private  type,  the  components  of  the  record 

—  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating  the  input 

—  data  records  (5.2.1). 
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STRING_DATA_RECORD  LEVEL  mb 

type  STRING_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

STRING_PROMPT_ECHO_TYPE  :=  DEFAULT_STRING)  is  private; 

--  Defines  a  record  for  initialising  string  input.  The  structure  of  the  record  is 

—  implementation-defined.  Since  it  is  a  private  type,  the  components  of  the  record 

—  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating  the  input 

—  data  records  (5.2.1). 


STROKE_DATA_RECORD  LEVEL  mb 

type  STROKE_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

STROKE_PROMPT_ECHO_TYPE  :=  DEFAULT_STROKE)  is  private; 

—  Defines  a  record  for  initialising  stroke  input.  The  structure  of  the  record  is 

—  implementation-defined.  Since  it  is  a  private  type,  the  components  of  the  record 

—  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating  the  input 

—  data  records  (5.2.1). 


VALUATOR_DATA_RECORD  LEVEL  mb 

type  V  ALU  AT  OR_D  AT  A_RE  COR  D  (PROMPT_ECHO_TYPE  : 

VALUATOR_PROMPT_ECHO_TYPE  :=  DEFAULT_VALUATOR)  is  private; 

—  Defines  a  record  for  initialising  valuator  input.  The  structure  of  the  record  is 

—  implementation-defined.  Since  it  is  a  private  type,  the  components  of  the  record 

—  may  be  retrieved  only  through  the  use  of  the  subprograms  for  manipulating  the  input 

—  data  records  (5.2.1). 


4.2.4  List  of  Constant  Declarations 


This  section  contains  the  declarations  of  implementation  dependent  constants  for  defining  GKS/Ada  types. 
Some  of  the  constants  are  used  for  defining  default  parameter  values  for  GKS  procedures  defined  in  5.0. 
This  section  also  contains  the  constants  that  provide  the  GKS  standard  values  defined  for  some  GKS/Ada 
types. 


The  following  constants  define  the  GKS  standard  line  types: 


SOLIDLINE 
DASHED_LINE 
DOTTED  JJNE 
DAS  HED_DOTTED_LINE 


:  constant  LINETYPE 
:  constant  LINETYPE 
:  constant  LINETYPE 
:  constant  LINETYPE 


1; 

2; 


-  3; 
=  4; 
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The  following  constants  define  the  GKS  standard  marker  types: 


DOT  MARKER 

constant  MARKER_TYPE 

=  1; 

PLUS  MARKER 

constant  MARKER_TYPE 

=  z; 

STAR  MARKER 

constant  MARKER_TYPE 

=  3; 

ZERO  MARKER 

constant  MARKER_TYPE 

=  4; 

X  MARKER 

constant  MARKER_TYPE 

=  5; 

The  following  constants  define  the  prompt  and  echo  types  supported  by  GKS: 

DEFAULT  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  1 

CROSS  HAIR  LOCATOR 

constant  LOCATOR_PROMPT_ECHO_TYPE 

=  2 

TRACKING_CROSS_LOCATOR 

constant  LOCATOR_PROMPT_ECHO_TYPE 

=  3 

RUBBER  BAND  LINE  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  4 

RECTANGLE  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  5 

DIGITAL_LOCATOR 

constant  LOCATOR_PROMPT_ECHO_TYPE 

=  6 

DEFAULT  STROKE 

constant  STROKE  PROMPT  ECHO  TYPE 

=  1 

DIGITAL  STROKE 

constant  STROKE  PROMPT  ECHO  TYPE 

=  2 

MARKER  STROKE 

constant  STROKE  PROMPT  ECHO  TYPE 

=  3 

LINE_STROKE 

constant  STROKE_PROMPT_ECHO_TYPE 

=  4 

DEFAULT  VALUATOR 

constant  VALUATOR  PROMPT  ECHO  TYPE 

=  1 

GRAPHICAL  VALUATOR 

constant  VALUATOR  PROMPT  ECHO  TYPE 

=  2 

DIGIT  AL_VALUATOR 

constant  VALUATOR_PROMPT_ECHO_TYPE 

=  3 

DEFAULT  CHOICE 

constant  CHOICE  PROMPT  ECHO  TYPE 

=  1 

PROMPT  ECHO  CHOICE 

constant  CHOICE  PROMPT  ECHO  TYPE 

=  2 

STRING_PROMPT  CHOICE 

constant  CHOICE_PROMPT_ECHO_TYPE 

=  3 

STRING  INPUT  CHOICE 

cons  Lint  CHOICE_PROMPT_ECHO_TYPE 

=  4 

SEGMENT_CHOICE 

constant  CHOICE_PROMPT_ECHO_TYPE 

=  5 

DEFAULT_STRING 

constant  STRING_PROMPT_ECHO_TYPE 

=  l; 

DEFAULT  PICK 

constant  PICK_PROMPT_ECHO_TYPE 

=  1 

GROUP  HIGHLIGHT  PICK 

constant  PICK_PROMPT  ECHO  TYPE 

=  2 

SEGMENT_HIGHLIGHT  PICK 

constant  PICK_PROMPT  ECHO  TYPE 

=  3 

The  following  constants  are  used  for  defining  default  parameter  value  for  GKS  procedures  defined  in  5.0. 

DEFAULT_MEMORY_UNITS  :  constant  :=  implementation  defined; 

PRECISION  :  constant  :=  implemeniation_defined; 

DEFAULT_ERROR_FILE  :  constant  STRING  :=  implementation_defined; 

The  following  defines  the  predefined  exception  GKS_ERROR  defined  in  3.2.3. 

GKS_ERROR  :  exception; 

The  following  constants  define  maximum  implementation  limits  for  GKS/Ada  types. 

SMALL_NATURAL_MAX  :  constant  :=  implementation_defincd 

STRING_SMALL_NATURAL_MAX  :  constant  :=  implementation_defined 

CHOICE_SMALL_NATURAL_MAX  :  constant  :=  implementation_defincd. 
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4.3  Error  Codes 

This  binding  requires  the  use  of  the  GKS  procedure  ERROR_HANDLING  to  process  any  errors  that  occur 
in  GKS  procedures,  except  the  inquiry  procedures.  A  complete  description  of  the  error  handling 
requirements  of  GKS  is  available  in  3.2.3  of  this  binding. 

The  GKS  inquiry  functions  do  not  raise  exceptions.  Instead,  they  return  an  error  indicator  parameter 
containing  the  number  of  the  "error"  which  was  detected.  This  is  consistent  with  the  GKS  philosophy  that 
no  errors  occur  during  inquiries.  The  error  numbers  correspond  to  the  error  numbers  from  Appendix  B  of 
the  GKS  specification,  plus  additional  errors  defined  in  this  binding.  Note  that  certain  known  error 
conditions  may  be  detected  outside  the  control  of  GKS  due  to  the  nature  of  the  Ada  language,  and  may  result 
in  an  exception  being  raised  on  an  inquiry. 

4.3.1  Error  Code  Definition 

ANSI  X3. 124-1985  provides  a  mapping  of  error  numbers  for  each  GKS  function.  Certain  of  the  known 
GKS  errors  will  never  be  detected  by  an  Ada  GKS  implementation  due  to  features  of  the  Ada  language,  such 
as  strong  data  typing.  These  errors  are  listed  in  the  precluded  error  codes  . 

In  addition  to  the  GKS  defined  errors,  there  can  be  errors  that  are  implementation  defined,  and  errors  that  are 
defined  by  this  language  binding. 

IMPLEMENTATION_DEFINED_ERROR 

These  errors  are  defined  in  the  User's  Manual  for  an  implementation  and  are  in  the  range  less  than  zero. 

language_binding_error 

Language_Binding_Error  indicates  an  error  detected  that  is  specific  to  this  binding  of  GKS  to  Ada.  Error 
numbers  2500  to  2999  are  reserved  for  language  binding  dependent  errors.  The  following  error  numbers  are 
defined  by  this  binding  for  the  specific  identification  of  language  binding  errors: 

2500  Invalid  use  of  input  data  record 

When  the  following  errors  occur,  the  predefined  Ada  exception  that  caused  the  error  is  raised  automatically. 

2501  Unknown  error  occurred  during  processing 

2502  Usage  error  is  GKS  List  Utility 
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4.3.2  Precluded  Error  Codes 

The  following  GKS  errors  are  listed  separately  because  due  to  some  feature  of  the  Ada  language  or  its  use 
by  this  binding,  they  could  never  be  detected  by  the  GKS  implementation.  The  errors  might  be  detected  by 
the  Ada  compiler,  or  at  run-time  outside  the  scope  of  GKS. 

Error  Codes  Precluded  by  Function 

20  Specified  workstation  identifier  is  invalid 
22  Specified  workstation  type  is  invalid 

65  Linewidth  scale  factor  is  less  than  zero 

7 1  Marker  size  scale  factor  is  less  than  zero 

77  Character  expansion  factor  is  less  than  or  equal  to  zero 

78  Character  height  is  less  than  or  equal  to  zero 
87  Pattern  size  value  is  not  positive 

9 1  Dimension  of  colour  array  are  invalid 

92  Colour  index  is  less  than  zero 

96  Colour  is  outside  range  [0,1] 

97  Pick  identifier  is  invalid 

120  Specified  segment  name  is  invalid 

126  Segment  priority  is  outside  the  range  [0,1] 

151  Timeout  is  invalid 

166  Maximum  item  data  record  length  is  invalid 
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5  Functions  in  the  Ada  Binding  to  GKS 


5.1  GKS  Functions 


OPEN  GKS 

procedure  OPEN_GKS 

(ERROR  FILE  :  in  STRING 

AMOUNT_OF_MEMORY  :  in  NATURAL 

LEVEL  ma 

:=  DEFAULT_ERROR_FILE; 

:=  DEFAULT_MEMOR  Y_UNITS ) ; 

CLOSE  GKS 

procedure  CLOSE_GKS; 

LEVEL  ma 

OPEN  WORKSTATION 

procedure  OPEN  WS 
(WS  :  in  WS_ID; 

CONNECTION  :  in  STRING; 

TYPE_OF_WS  :  in  WS_TYPE); 

LEVEL  ma 

CLOSE  WORKSTATION 

procedure  CLOSE  WS 
(WS  :  in  WS _ID); 

LEVEL  ma 

ACTIVATE  WORKSTATION 

procedure  ACTIVATE  WS 
(WS  :  in  WS _ID); 

LEVEL  ma 

DEACTIVATE  WORKSTATION 

procedure  DEACTIVATE  WS 
(WS  :  in  WS_ID); 

LEVEL  ma 

CLEAR  WORKSTATION 

procedure  CLEAR  WS 
(WS  :  in  WS  ID; 

FLAG  :  in  CONTROL_FLAG); 

LEVEL  ma 
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REDRAW  ALL  SEGMENTS  ON  WORKSTATION  LEVEL  la 

procedure  REDRAW_ALL_SEGMENTS_ON_WS 
(WS  :  in  WS_ID); 


UPDATE  WORKSTATION 


LEVEL  ma 


procedure  UPDATE_WS 
(WS  :  in  WS_ID; 

REGENERATION  :  in  UPDATE_REGENERATION_FLAG); 


SET  DEFERRAL  STATE 


LEVEL  la 


procedure  SET_DEFERRAL_STATE 
(WS  :  in  WS _ID; 

DEFERRAL  :  in  DEFERRAL_MODE; 

REGENERATION  :  in  REGENERATION_MODE); 


MESSAGE  LEVEL  la 

procedure  MESSAGE 
(WS  :  in  WS_ID; 

CONTENTS  :  in  STRING); 
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ESCAPE  LEVEL  ma 

Escape  functions  are  bound  in  Ada  as  separate  procedures  for  each  unique  type  of  escape 
provided  by  the  implementation,  each  with  a  formal  parameter  list  appropriate  to  the 
procedure  implemented.  The  registered  ESCAPE  procedures  will  be  in  a  library  package 
named  GKS_ESCAPE.  ESCAPE  names  and  parameters  are  registered  in  the  ISO  International 
Register  of  Graphical  Items  which  is  maintained  by  the  Registration  Authority. 

Each  unregistered  ESCAPE  procedure  will  be  a  library  package  using  the  following  naming 
convention: 


package  GKS_UESC_<name  of  the  escape  procedure>  is 
procedure  ESC; 

—  Ada  code  for  UESC  procedure 
end  GKS_UESC_<name  of  the  escape  proceduro; 

-  the  only  procedure  name  used  in  the  package  will  be  ESC 


In  order  to  support  the  ability  to  write  an  ESCAPE  that  is  not  implemented  to  a 
metafile,  these  registered  ESCAPES  may  be  invoked  using  the  data  types  and  the 
form  of  the  procedure  GENERALIZED_ESC  which  have  the  specifications  given  below: 


package  GKS_ESCAPE  is 
type  ESCAPEJD  is  new  INTEGER; 
type  ESCAPE_FLOAT  is  digits  PRECISION; 
type  ESCJNTEGER.ARRAY  is  array  (SMALL_NATURAL  range  <>) 
of  INTEGER; 

type  ESC_FLOAT_ARRAY  is  array  (SMALL_NATURAL  range  <>) 
of  ESCAPE_FLOAT; 

type  ESC_STRING_ARRAY  is  array  (SMALL_NATURAL  range  <>) 
of  STRING  (1..80); 


type  ESC_DATA_RECORD 


record 

INTEGER,  ARRAY 
REAL_ARRAY 
ESC_STRINGS 
end  record; 


(NUM_OF_INTEGERS 

NUM_OF_REALS 

NUM_OF_STRINGS 


SMALL_NATURAL  :=  0; 
SMALL_NATURAL  :=  0; 
SMALL_NAT(JRAL  :=  0)  is 


ESC_INTEGER_ARRAY 

ESC_FLOAT_ARRAY 

ESC_STRING_ARRAY 


(L.NUM_OFJNTEGERS); 

(l..NUM_OF_REALS); 

(l..NUM_OF_STRINGS); 


procedure  GENERALIZED  JSSC  (ESCAPE_NAME 

ESC_DATA_IN 

ESC_DATA_OUT 

end  GKS_ESCAPE; 


in  ESCAPEJD; 
in  ESC_DATA_RECORD; 
out  ESC_DATA_RECORD); 


-  Provides  data  types  and  procedures  to  implement  unsupported  ESC's. 
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POLYLINE 

procedure  POLYLINE 
(POINTS  :  in  WC.POINT_ARRAY); 

LEVEL  ma 

POLYMARKER 

procedure  POLYMARKER 
(POINTS  :  in  WC.POINT_ARRAY); 

LEVEL  ma 

TEXT 

procedure  TEXT 

(POSITION  :  in  WC.POINT; 

CHAR_STRING  :  in  STRING); 

LEVEL  ma 

FILL  AREA 

procedure  FILL  AREA 
(POINTS  :  in  WC.POINT_ARRAY); 

LEVEL  ma 

CELL  ARRAY 

procedure  CELL_ARRAY 
(CORNER  11  :  in  WC.POINT; 

CORNER  DX  DY  :  in  WC.POINT; 

CELLS  :  in  COLOUR  MATRIX); 

LEVEL  Oa 
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GENERALIZED  DRAWING  PRIMITIVE 


LEVEL  Oa 


The  Generalized  Drawing  Primitive  (GDP)  is  bound  in  a  one-to-many  fashion,  with  a 
separate  procedure  implemented  for  each  GDP,  each  with  its  own  parameter  interface. 

Registered  GDP's  are  in  a  library  package  named  GKS_GDP.  GDP  names  and  parameters 
are  registered  in  the  ISO  International  Register  of  Graphical  Items  which  is  maintained  by 
the  Registration  Authority. 

Each  unregistered  GDP  procedure  will  be  a  library  package  using  the  following  naming 
convention: 

package  GKS_UGDP_<name  of  the  GDP  proceduro  is 
procedure  GDP; 

-  Ada  code  for  UGDP  procedure 
end  GKS  _UGDP_<  name  of  the  GDP  proceduro; 

—  The  only  procedure  name  used  in  the  package  will  be  GDP 

In  order  to  support  the  ability  to  write  a  GDP  that  is  not  implemented  at  a  given  implementation  to  a 
metafile,  these  registered  GDP's  may  be  invoked  using  the  data  types  and  the  form  of  the  procedure 
GENERALIZED_GDP  which  have  the  specifications  given  below; 


package  GKS_GDP  is 

type  GDP_FLOAT  is  digits  PRECISION; 

type  GDP_INTEGER_ ARRAY  is  array  (SMALL_NATURAL  range  <>) 
of  INTEGER; 

type  GDP_FLOAT_ARRAY  is  array  (SMALL_NATURAL  range  <>) 
of  GDP_FLOAT; 

type  GDP_STRING_ARRAY  is  array  (SMALL_NATURAL  range  <>) 
of  STRING  (1..80); 


type  GDP_DATA_RECORD  (NUM_OF_INTEGERS  :  SMALL_NATURAL  :=  0; 

NU M_OF_RE AL S  :  SMALL_NATURAL  :=  0; 

NUM_OF_STRINGS  :  SMALL_NATURAL  :  =  0)  is 

record 

INTEGER_ ARRAY  :  GDP_INTEGER_ ARRAY  (l..NUM_OF_INTEGERS); 

RE AL_ ARRAY  :  GDP_FLOAT_ARRAY  (l..NUM_OF_REALS); 

GDP_STRINGS  :  GDP_STRING_ARRAY  (I ,.NUM_OF_STRINGS); 

end  record; 


procedure  GENERAL IZED_GDP  (GDP_NAME 

POINTS 

GDP_DATA 

end  GKS_GDP; 


:  in  GDPJD; 

:  in  WC.POINT_LIST; 

:  in  GDP_DATA_RECORD); 


-  Provides  data  types  and  procedure  to  implement  unsupported  GDP's. 
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SET  POLYLINE  INDEX 

procedure  SET  POLYLINE  INDEX 
(INDEX  :  in  POLYLINE _INDEX); 

LEVEL  Oa 

SET  LINETYPE 

procedure  SET  LINETYPE 
(TYPE_OF_LINE  :  in  LINETYPE); 

LEVEL  ma 

SET  LENEWIDTH  SCALE  FACTOR 

procedure  SET  LINEWIDTH_SCALE_F ACTOR 
(WIDTH  :  in  LINEWIDTH); 

LEVEL  Oa 

SET  POLYLINE  COLOUR  INDEX 

procedure  SET  POLYLINE  COLOUR  INDEX 
(LENE_COLOUR  :  in  COLOUR  JNDEX); 

LEVEL  ma 

SET  POLYMARKER  INDEX 

procedure  SET  POLYMARKER  INDEX 
(INDEX  :  in  POLYMARKER  JNDEX); 

LEVEL  Oa 

SET  MARKER  TYPE 

procedure  SETJTARKERJTYPE 
(TYPE_OF_MARKER  :  in  MARKER  JTYPE); 

LEVEL  ma 

SET  MARKER  SIZE  SCALE  FACTOR 

procedure  SET  MARKER  SIZE  SCALE  FACTOR 
(SIZE  :  in  MARKER_SIZE); 

LEVEL  Oa 

SET  POLYMARKER  COLOUR  INDEX 

procedure  SET_POLYMARKER  COLOUR  INDEX 
(MARKER_COLOUR  :  in  COLOUR  JNDEX); 

LEVEL  ma 
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SET  TEXT  INDEX 

LEVEL  Oa 

procedure  SET_TEXT_INDEX 
(INDEX  :  in  TEXTJNDEX); 

SET  TEXT  FONT  AND  PRECISION 

LEVEL  Oa 

procedure  SET  TEXT JFONT_AND_PREC I S ION 
(FONT_PRECISION  :  in  TEXT_FONT_PRECISION); 

SET  CHARACTER  EXPANSION  FACTOR 

LEVEL  Oa 

procedure  SET  CHAR  EXPANSION  FACTOR 
(EXPANSION  :  in  CHAR_EXPANSION); 

SET  CHARACTER  SPACING 

LEVEL  Oa 

procedure  SET  CHAR  SPACING 
(SPACING  :  in  CHAR_SPACING); 

SET  TEXT  COLOUR  INDEX 

LEVEL  ma 

procedure  SET  TEXT  COLOUR  INDEX 
(TEXT_COLOUR  :  in  COLOUR JNDEX); 

SET  CHARACTER  HEIGHT 

LEVEL  ma 

procedure  SET_CHAR  HEIGHT 
(HEIGHT  :  in  WC. MAGNITUDE); 

SET  CHARACTER  UP  VECTOR 

LEVEL  ma 

procedure  SET  CHAR  UP  VECTOR 
(CHAR_UP_ VECTOR  :  in  WC.VECTOR); 

SET  TEXT  PATH 

LEVEL  Oa 

procedure  SET  TEXT  PATH 
(PATH  :  in  TEXT_PATH); 
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SET  TEXT  ALIGNMENT 

procedure  SET  TEXT_ALIGNMENT 
(ALIGNMENT  :  in  TEXT_ALIGNMENT); 

LEVEL  ma 

SET  FILL  AREA  INDEX 

procedure  SET  FILL_AREA_INDEX 
(INDEX  :  in  FILL_AREA_INDEX); 

LEVEL  Oa 

SET  FILL  AREA  INTERIOR  STYLE 

procedure  SET  FILL  AREA  INTERIOR  STYLE 
(INTERIOR  :  in  INTERIOR_STYLE); 

LEVEL  ma 

SET  FILL  AREA  STYLE  INDEX 

procedure  SET_FILL_AREA_STYLEJNDEX 
(STYLE  :  in  STYLE JNDEX); 

LEVEL  Oa 

SET  FILL  AREA  COLOUR  INDEX 

procedure  SET  FILL  AREA  COLOUR  INDEX 
(FILL_AREA_COLOUR  :  in  COLOURJNDEX); 

LEVEL  ma 

SET  PATTERN  SIZE 

procedure  SET  PATTERN  SIZE 
(SIZE  :  in  WC.SIZE); 

LEVEL  Oa 

SET  PATTERN  REFERENCE  POINT 

procedure  SET  PATTERN  REFERENCE  POINT 
(POINT  :  in  WC.POINT); 

LEVEL  Oa 

SET  ASPECT  SOURCE  FLAGS 

procedure  SET  ASF 

LEVEL  Oa 

(ASF  :  in  ASF_LIST); 
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SET  PICK  IDENTIFIER 

procedure  SET_PICK_ID 
(PICK  :  in  PICKJD); 


Output  Attribute  Functions 


LEVEL  lb 


SET  POLYLINE  REPRESENTATION 


LEVEL  la 


procedure  SET_POLYLINE 
(WS 
INDEX 

TYPEJDFJJNE 

WIDTH 

LINE_COLOUR 


REPRESENTATION 
in  WS_ID; 

in  POLYLINEJNDEX; 
in  LINETYPE; 
in  LINEWIDTH; 
in  COLOUR  JNDEX); 


SET  POLYMARKER  REPRESENTATION 


LEVEL  la 


procedure  SET_POLYMARKER_REPRESENTATION 

:  in  WS_ID; 

:  in  POLYMARKERJNDEX; 


(WS 

INDEX 

TYPE_OF_MARKER 

SIZE 

MARKER  JTOLOUR 


:  in  MARKER_TYPE; 

:  in  MARKER_SIZE; 

:  in  COLOURJNDEX); 


SET  TEXT  REPRESENTATION 


LEVEL  la 


procedure  SET_TEXT_REPRESENTATION 


(WS 

INDEX 

FONT_PRECISION 
EXPANSION 
SPACING 
TEXT  COLOUR 


in  WS_ID; 
in  TEXTJNDEX; 
in  TEXT_FONT_PRECISION; 
in  CHAR_EXPANSION; 
in  CHAR_SPACING; 
in  COLOURJNDEX); 


SET  FILL  AREA  REPRESENTATION 


LEVEL  la 


procedure  SET_FILL_AREA_REPRESENTATION 
(WS  :  in  WS  JD; 

INDEX  :  in  FILL_AREA JNDEX; 

INTERIOR  :  in  INTERIOR  J5TYLE; 

STYLE  :  in  STYLEJNDEX; 

FILL_AREA_COLOUR  :  in  COLOUR_INDEX); 
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SET  PATTERN  REPRESENTATION  LEVEL  la 

proccd  ure  SET_P  ATTERN_REPRES  ENT  ATI  ON 
(WS  :  in  WS _ID; 

INDEX  :  in  PATTERNJNDEX; 

PATTERN  :  in  COLOUR_MATRIX); 


SET  COLOUR  REPRESENTATION  LEVEL  ma 

procedure  S ET_COLOUR_REPRES ENT ATION 
(WS  :  in  WS _ID; 

INDEX  :  in  COLOUR  JNDEX; 

RGB_COLOUR  :  in  COLOUR_REPRESENT  ATION); 
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SET  WINDOW  LEVEL  ma 

procedure  SET_WTNDOW 

(TRANSFORMATION  :  in  POSITIVE_TRANSFORMATION_NUMBER; 

WINDOW_LIMITS  :  in  WC.RECTANGLE_LIMITS); 


SET  VIEWPORT 


LEVEL  ma 


procedure  SETJVIEWPORT 

(TRANSFORMATION  :  in  POSITIVE_TRANSFORMATION_NUMBER; 
VIEWPORT_LIMITS  :  in  NDC.RECTANGLE_LIMITS); 


SET  VIEWPORT  INPUT  PRIORITY  LEVEL  mb 

procedure  SET_VIEWPORT_INPUT_PRIORITY 
(TRANSFORMATION  :  in  TRANSFORMATION_NUMBER; 

REFERENCE_TRANS FORMATION  :  in  TRANSFORMATION_NUMBER; 

PRIORITY  :  in  RELATIVE_PRIORITY); 


SELECT  NORMALIZATION  TRANSFORMATION  LEVEL  ma 

procedure  SELECT_NORMALIZATION_TRANSFORMATION 
(TRANSFORMATION  :  in  TRANSFORMATION_NUMBER); 


SET  CLIPPING  INDICATOR  LEVEL  ma 

procedure  SET_CLIPPING_INDICATOR 
(CLIPPING  :  in  CLIPPINGJNDICATOR); 


SET  WORKSTATION  WINDOW  LEVEL  ma 

procedure  SET_WS_WINDOW 
(WS  :  in  WS_ID; 

WS_WINDOW_LIMITS  :  in  NDC.RECTANGLE_LIMITS); 


SET  WORKSTATION  VIEWPORT  LEVEL  ma 

procedure  SET_WS_VIEWPORT 
(WS  :  in  WS_ID; 

WS_VIEWPORT_LIMITS  :  in  DC.RECTANGLE_LIMITS); 
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CREATE  SEGMENT 

procedure  CREATE_SEGMENT 
(SEGMENT  :  in  S E G MENT_N A M E ) ; 

LEVEL  la 

CLOSE  SEGMENT 

procedure  CLOSESEGMENT; 

LEVEL  la 

RENAME  SEGMENT 

procedure  RENAME_SEGMENT 
(OLD  NAME  :  in  SEGMENT_NAME; 

NEW_NAME  :  in  SEGMENT_NAME); 

LEVEL  la 

DELETE  SEGMENT 

procedure  DELETE  SEGMENT 
(SEGMENT  :  in  S EG MENT_N AME ) ; 

LEVEL  la 

DELETE  SEGMENT  FROM  WORKSTATION 

procedure  DELETE  SEGMENT  FROM  WS 
(WS  :  in  WS  ID; 

SEGMENT  :  in  SEGMENT_NAME); 

LEVEL  la 

ASSOCIATE  SEGMENT  WITH  WORKSTATION 

procedure  ASSOCIATE_SEGMENT_WITH_WS 
(WS  :  in  WS  ID; 

SEGMENT  :  in  SEGMENT_NAME); 

LEVEL  2a 

COPY  SEGMENT  TO  WORKSTATION 

procedure  COPY  SEGMENT  TO  WS 
(WS  :  in  WS_ID; 

LEVEL  2a 

SEGMENT  :  in  SEGMENT_NAME); 
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INSERT  SEGMENT 

procedure  INSERT_SEGMENT 
(SEGMENT  :  in  SEGMENTJSAME; 

TRANSFORMATION  :  in  TRANSFORMATION_MATRIX); 

LEVEL  2a 

SET  SEGMENT  TRANSFORMATION 

procedure  SET  SEGMENT_TRANSFORMATION 
(SEGMENT  :  in  SEGMENT_NAME; 

TRANSFORMATION  :  in  TRANSFORM ATION_MATRIX); 

LEVEL  la 

SET  VISIBILITY 

procedure  SET  VISIBILITY 
(SEGMENT  :  in  SEGMENT  NAME; 

VISIBILITY  :  in  SEGMENT_VISIBILITY); 

LEVEL  la 

SET  HIGHLIGHTING 

procedure  SET_HIGHLIGHTTNG 
(SEGMENT  :  in  SEGMENT_NAME; 

HIGHLIGHTING  :  in  SEGMENT_HIGHLIGHTING); 

LEVEL  la 

SET  SEGMENT  PRIORITY 

procedure  SET_SEGMENT_PRIORITY 
(SEGMENT  :  in  SEGMENT  NAME; 

PRIORITY  :  in  SEGMENT_PRIORITY); 

LEVEL  la 

SET  DETECTABILITY 

procedure  SET  DETECTABILITY 
(SEGMENT  :  in  SEGMENT  NAME; 

DETECTABILITY  :  in  SEGMENT  DETECTABILITY); 

LEVEL  lb 
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INITIALISE  LOCATOR 

LEVEL  mb 

procedure  INITIALISE  LOCATOR 
(WS 

DEVICE 

INITIAL_TRANSFORMATION 
INITIAL  POSITION 

ECHO  AREA 

DATA_RECORD 

:  in  WS  ID; 

;  in  LOCATOR  DEVICE  NUMBER; 

:  in  TRANSFORMATION_NUMBER; 

;  in  WC. POINT; 

:  in  DC.RECTANGLE_LIMITS; 

:  in  LOCATOR_DATA_RECORD); 

INITIALISE  STROKE 

LEVEL  mb 

procedure  INITIALISE  STROKE 
(WS 

DEVICE 

INITIAL  TRANSFORMATION 
INITIAL  STROKE 

ECHO  AREA 

DATA_RECORD 

:  in  WS  ID; 

:  in  STROKE_DEVICE_NUMBER; 

:  in  TRANSFORMATION_NUMBER; 

;  in  WC. POINT  ARRAY; 

:  in  DC.RECT  ANGLE_LIMITS; 

:  in  STROKE  DATA  RECORD); 

INITIALISE  VALUATOR 

LEVEL  mb 

procedure  INITIALISE  VALUATOR 
(WS  :  in  WS_ID; 

DEVICE  :  in  VALUATOR  DEVICE  NUMBER; 

INITI AL_V ALUE  :  in  VALUATOR  INPUT  VALUE; 

ECHO  AREA  :  in  DC.RECT ANGLE  LIMITS; 

DATA_RECORD  :  in  VALUATOR  DATA  RECORD); 

INITIALISE  CHOICE 

LEVEL  mb 

procedure  INITIALISE  CHOICE 
(WS  :  in  WS  ID; 

DEVICE  :  in  CHOICE  DEVICE  NUMBER; 

INITI AL_STATUS  :  in  CHOICE  STATUS; 

INITI AL_CHOICE  :  in  CHOICE  VALUE; 

ECHO_AREA  :  in  DC. RECTANGLE  LIMITS; 

DATA_RECORD  :  in  CHOICE  DATA  RECORD); 
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INITIALISE  PICK 


LEVEL  lb 


procedure  INITIALISE_PICK 


(WS 

DEVICE 

INITIAL_STATUS 
INITIAL_SEGMENT 
INITIAL_PICK 
ECHO_AREA 
DATA  RECORD 


:  in  WS _ID; 

:  in  PICK_DEVICE_NUMBER; 

:  in  PICK_STATUS; 

:  in  SEGMENT_NAME; 

:  in  PICKJD; 

:  in  DC.RECTANGLE_L1MITS; 
:  in  PICK_DATA_RECORD); 


INITIALISE  STRING 


LEVEL  mb 


procedure  IN1TIALISE_STRING 


(WS 

DEVICE 

INITIAL_STRING 

ECHO_AREA 

DATA_RECORD 


:  in  WS_ID; 

:  in  STRING_DEVICE_NUMBER; 
:  in  INPUT_STRING; 

:  in  DC.RECTANGLE_LIMITS; 

:  in  STRING_DATA_RECORD); 


SET  LOCATOR  MODE 


LEVEL  mb 


procedure  SET_LOCATOR_MODE 
(WS  :  in  WS_ID; 

DEVICE  :  in  LOCATOR_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 


SET  STROKE  MODE 


LEVEL  mb 


procedure  SET_STROKE_MODE 
(WS  :  in  WS_ID; 

DEVICE  :  in  STROKE_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 


SET  VALUATOR  MODE 


LEVEL  mb 


procedure  SET_VALUATOR_MODE 
(WS  :  in  WSJD; 

DEVICE  :  in  VALUATOR_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 
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SET  CHOICE  MODE 


LEVEL  mb 


procedure  SET_CHOICE_MODE 
(WS  :  in  WS _ID; 

DEVICE  :  in  CHOICE_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 


SET  PICK  MODE 


LEVEL  lb 


procedure  SET_PICK_MODE 
(WS  :  in  WS _ID; 

DEVICE  :  in  PICK_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 


SET  STRING  MODE 


LEVEL  mb 


procedure  SET_STRING_MODE 
(WS  :  in  WS _ID; 

DEVICE  :  in  STRING_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 


REQUEST  LOCATOR 


LEVEL  mb 


procedure  REQUEST_LOCATOR 
(WS  :  in  WS_ID; 

DEVICE  :  in  LOCATOR_DEVICE_NUMBER; 

STATUS  :  out  INPUT_STATUS; 

TRANSFORMATION  :  out  TRANS  FORM  ATION_NUMBER; 

POSITION  :  out  WC.POINT); 


REQUEST  STROKE 


LEVEL  mb 


procedure  REQUEST_STROKE 
(WS 

DEVICE 

STATUS 

TRANSFORMATION 

STROKE_POINTS 


in  WS_ID; 

in  STROKE_DEVICE_NUMBER; 
out  INPUT  STATUS; 
out  TRANS  FORM  ATION_NUMBER; 
out  WC.POINT_LIST); 
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REQUEST  VALUATOR 

LEVEL  mb 

procedure  REQUESTJVALUATOR 

(WS 

in  WS  ID; 

DEVICE 

in  VALUATOR  DEVICE_NUMBER; 

STATUS 

out  INPUT  STATUS; 

VALUE 

out  VALUATOR _INPUT_VALUE); 

REQUEST  CHOICE 

LEVEL  mb 

procedure  REQUEST_CHOICE 

(WS 

in  WS  ID; 

DEVICE 

in  CHOICE  DEVICE  NUMBER; 

STATUS 

out  CHOICE  REQUEST_STATUS; 

CHOICE  NUMBER 

out  CHOICE  VALUE); 

REQUEST  PICK 

LEVEL  lb 

procedure  REQUEST_PICK 

(WS  : 

in  WS  ID; 

DEVICE  : 

in  PICK  DEVICE  NUMBER; 

STATUS  : 

out  PICK  REQUEST  STATUS; 

SEGMENT  : 

out  SEGMENT  NAME; 

PICK  : 

out  PICK  ID); 

REQUEST  STRING 

LEVEL  mb 

procedure  REQUEST_STRING 

(WS 

;  in  WS  ID; 

DEVICE 

:  in  STRING  DEVICE  NUMBER; 

STATUS 

:  out  INPUT  STATUS; 

CHAR  STRING 

:  out  INPUT  STRING); 

SAMPLE  LOCATOR 

LEVEL  me 

procedure  SAMPLE_LOCATOR 

(WS 

in  WS  ID; 

DEVICE 

in  LOCATOR  DEVICE  NUMBER; 

TRANSFORMATION 

out  TRANSFORMATION  NUMBER; 

POSITION 

out  WC. POINT); 
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SAMPLE  STROKE  LEVEL  me 

procedure  SAMPLE_STROKE 
(WS  :  in  WS_ID; 


DEVICE 

TRANSFORMATION 

STROKE_POINTS 

:  in  STROKE_DEVICE_NUMBER; 

:  out  TRANSFORMATION  NUMBER; 

:  out  WC.POINT_LIST); 

SAMPLE  VALUATOR 

LEVEL  me 

procedure  SAMPLEJVALUATOR 
(WS  :  in  WS_ID; 


DEVICE 

VALUE 

:  in  VALUATOR  DEVICE  NUMBER; 

:  out  VALUATOR _INPUT_VALUE); 

SAMPLE  CHOICE 

LEVEL  me 

procedure  SAMPLE_CHOICE 
(WS  :  in  WS _ID; 


DEVICE 

STATUS 

CHOICE_NUMBER 

:  in  CHOICE  DEVICE  NUMBER; 

:  out  CHOICE  STATUS; 

:  out  CHOICE_V  ALUE); 

SAMPLE  PICK 

LEVEL  lc 

procedure  SAMPLE  PICK 
(WS 

DEVICE 

STATUS 

SEGMENT 

PICK 

:  in  WS  ID; 

:  in  PICK  DEVICE  NUMBER; 

:  out  PICK  STATUS; 

:  out  SEGMENT  NAME; 

:  out  PICKJD); 

SAMPLE  STRING 

LEVEL  me 

procedure  SAMPLE_STRING 
(WS  :  in  WS_ID; 


DEVICE 

CHAR_STRING 

:  in  STRING  DEVICE  NUMBER; 

:  out  INPUT_STRING); 
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AWAIT  EVENT 


LEVEL  me 


procedure  AWAIT_EVENT 
(TIMEOUT 
WS 

CLASS 

DEVICE 


in  DURATION; 

out  WS_ID; 

out  INPUT_CLASS; 

out  EVENT_DEVICE_NUMBER); 


FLUSH  DEVICE  EVENTS  LEVEL  me 

procedure  FLUSH_DEVICE_EVENTS 
(WS  :  in  WS _ID; 

CLASS  :  in  INPUT_QUEUE_CLASS; 

DEVICE  :  in  EVENT_OVERFLOW_DEVICE_NUMBER); 


GET  LOCATOR  LEVEL  me 

procedure  GET_LOCATOR 

(TRANSFORMATION  :  out  TRANSFORMATION_NUMBER; 

POSITION  :  out  WC.POINT); 


GET  STROKE  LEVEL  me 

procedure  GET_STROKE 

(TRANSFORMATION  :  out  TRANSFORMATION_NUMBER; 

STROKE_POINTS  :  out  WC.POINT_LIST); 


GET  VALUATOR  LEVEL  me 

procedure  GET_V ALUATOR 
(VALUE  :  out  VALUATOR_VALUE); 


GET  CHOICE  LEVEL  me 

procedure  GET_CHOICE 

(STATUS  :  out  CHOICE_STATUS; 

CHOICE_NUMBER  :  out  CHOICE_VALUE); 
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GET  PICK 

LEVEL  lc 

procedure  GET_PICK 
(STATUS 
SEGMENT 

PICK 

out  PICK  STATUS; 
out  SEGMENT  NAME; 
out  PICK  ID); 

GET  STRING 

LEVEL  me 

procedure  GET  STRING 
(CHAR_STRING  :  out  INPUT_STRING); 
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WRITE  ITEM  TO  GKSM  LEVEL  Oa 

procedure  WRITE_ITEM_TO_GKSM 
(WS  :  in  WS_ID; 

ITEM  :  in  GKSM_DATA_RECORD); 


GET  ITEM  TYPE  FROM  GKSM  LEVEL  Oa 

procedure  GET_ITEM_TYPE_FROM_GKSM 
(WS  :  in  WS_ID; 

TYPE_OF_ITEM  :  out  GKSM_ITEM_TYPE; 

LENGTH  :  out  NATURAL); 


READ  ITEM  FROM  GKSM 


LEVEL  Oa 


procedure  READ_ITEM_FROM_GKSM 
(WS  :  in  WS_ID; 

MAX_LENGTH  :  in  NATURAL; 

ITEM  :  out  GKSM_DATA_RECORD); 


INTERPRET  ITEM  LEVEL  Oa 

procedure  INTERPRET_ITEM 
(ITEM  :  in  GKS M_D AT A_RECORD); 
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INQUIRE  OPERATING  STATE  VALUE  LEVEL  Oa 

procedure  INQ_OPER ATING_ST ATE_ V ALUE 
(VALUE  :  out  OPERATING_STATE); 


INQUIRE  LEVEL  OF  GKS  LEVEL  ma 

procedure  INQ_LEVEL_OF_GKS 
(ERROR .INDICATOR  :  out  ERROR_NUMBER; 

LEVEL  :  out  GKS_LEVEL); 


INQUIRE  LIST  OF  AVAILABLE  WORKSTATION  TYPES  LEVEL  Oa 

procedure  INQ_LIST_OF_A V AIL  ABLE  JVSJTYPES 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

TYPES  :  out  WS_TYPES.LIST_OF); 


INQUIRE  WORKSTATION  MAXIMUM  NUMBERS 


LEVEL  la 


procedure  INQ_WS_MAX_NUMBERS 


(ERRORJNDICATOR 
MAX_OPEN_W  S 
M  AX_ACTI  VE_W  S 
MAX  SEGMENT  WS 


out  ERROR_NUMBER; 
out  POSITIVE; 
out  POSITIVE; 
out  POSITIVE); 


INQUIRE  MAXIMUM  NORMALIZATION  TRANSFORMATION  NUMBER  LEVEL  Oa 

procedure  INQ_MAX_NORMALIZATION_TRANSFORMATION_NUMBER 
(ERRORJNDICATOR  :  out  ERROR JVUMBER; 

TRANSFORMATION  :  out  TRANSFORMATIONJXUMBER); 


INQUIRE  SET  OF  OPEN  WORKSTATIONS  LEVEL  Oa 

procedure  INQ_SET_OF_OPEN_WS 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 

WS  :  out  WS  JDS. LIST  JDF); 
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INQUIRE  SET  OF  ACTIVE  WORKSTATIONS  LEVEL  la 

procedure  INQ_SET_OF_ACTIVE_WS 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

WS  :  out  WS_IDS.LIST_OF); 


INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES  LEVEL  ma 

procedure  INQ_CURRENT_PRIMITIVE_ ATTRIBUTED ALUES 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

ATTRIBUTES  :  out  PRIMITIVE_  ATTRIBUTED  ALUES); 

-  The  following  procedures  support  inquiry  of  the  primitive  values  individually. 

procedure  INQ_POLYLINE_INDEX 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 

INDEX  :  out  POLYLINE  JNDEX); 

procedure  INQ_POLYMARKER  JNDEX 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

INDEX  :  out  POLYMARKER  JNDEX); 

procedure  INQJEXTJNDEX 
(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

INDEX  :  out  TEXTJNDEX); 

procedure  INQ_CHAR_HEIGHT 
(ERROR_INDICATOR  :  out  ERROR  JNUMBER; 

HEIGHT  :  out  WC. MAGNITUDE); 

procedure  INQJEHAR  JJP_VECTOR 
(ERRORJNDICATOR  :  out  ERROR  JNUMBER; 

VECTOR  :  out  WC. VECTOR); 

procedure  INQ_CHAR_WIDTH 
(ERRORJNDICATOR  :  out  ERROR JMUMBER; 

WIDTH  :  out  WC.MAGNITUDE); 

procedure  INQ_CHAR_BASE_ VECTOR 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 

VECTOR  :  out  WC.VECTOR); 

procedure  INQ_TEXT_PATH 
(ERRORJNDICATOR  :  out  ERRORJVUMBER; 

PATH  :  out  TEXT_PATH); 

procedure  INQ_TEXT_ALIGNMENT 
(ERRORJNDICATOR  :  out  ERROR  DUMBER; 

ALIGNMENT  :  out  TEXT_ALIGNMENT); 

procedure  INQ_FILL_AREA_INDEX 
(ERRORJNDICATOR  :  out  ERROR  JSUMBER; 

INDEX  :  out  FILL_AREA JNDEX); 
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procedure  INQ_PATTERN_WIDTH_VECTOR 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 
WIDTH  :  out  WC.VECTOR); 

procedure  INQ_PATTERN_HEIGHT_VECTOR 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 
VECTOR  :  out  WC.VECTOR); 

procedure  INQ_PATTERN_REFERENCE_POINT 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 
REFERENCE_POINT  :  out  WC.POINT); 


INQUIRE  CURRENT  PICK  IDENTIFIER  VALUE  LEVEL  1  b 

procedure  INQ_CURRENT_PICK_ID_VALUE 
(ERRORJNDICATOR  :  out  ERROR  JSUMBER; 

PICK  :  out  PICKJD); 


INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES  LEVEL  ma 

procedure  INQ_CURRENT_INDIVIDUAL_ATTRIBUTE_VALUES 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

ATTRIBUTES  :  out  INDIVIDUAL_ ATTRIBUTED ALUES); 

—  The  following  procedures  support  inquiry  of  the  individual  attributes  individually. 


procedure  INQ_LINETYPE 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 
TYPE_OF_LINE  :  out  LINETYPE); 

procedure  INQ_LINEWIDTH_SCALE_FACTOR 
(ERROR_INDICATOR  :  out  ERROR  JXUMBER; 
WIDTH  :  out  LINEWIDTH); 

procedure  INQ_POLYLINE_COLOURJNDEX 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 
LINE_COLOUR  :  out  COLOUR JNDEX); 

procedure  INQ_POLYMARKER_TYPE 
(ERRORJNDICATOR  :  out  ERROR  JSUMBER; 
TYPE_OF_MARKER  :  out  MARKER_TYPE); 

procedure  INQ_POLYMARKER_SIZE_SCALE_FACTOR 
(ERRORJNDICATOR  :  out  ERROR JSTUMBER; 

SIZE  :  out  MARKER_SIZE); 

procedure  INQ_POLYMARKER_COLOUR JNDEX 
(ERRORJNDICATOR  :  out  ERROR JVUMBER; 
MAR KER_COLOUR  :  out  COLOUR  JNDEX); 
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procedure  INQ_TEXT_FONT_AND_PRECISION 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 
FONT_PRECIS ION  :  out  TEXT_FONT_PRECISION); 

procedure  INQ_CHAR_EXPANSION_FACTOR 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 
EXPANSION  :  out  CHAR_EXPANSION); 

procedure  INQ_CHAR_SPACING 
(ERRORJNDICATOR  :  out  ERROR  JSTUMBER; 
SPACING  :  out  CHAR_SPACING); 

procedure  INQ_TEXT_COLOUR_INDEX 
(ERRORJNDICATOR  :  out  ERROR  JSTUMBER; 
TEXTJ20L0UR  :  out  COLOUR  JNDEX); 

procedure  INQ_FILL_AREA_INTERIOR_STYLE 
(ERROR_INDICATOR  :  out  ERROR_NUMBER; 
INTERIOR  :  out  INTERIOR  JsTYLE); 

procedure  INQ_FILL_  AR  E  AS  TYEE  JNDEX 
(ERROR_INDICATOR  :  out  ERROR  JSTUMBER; 

STYLE  :  out  STYLE_INDEX); 

procedure  INQ_FILL_AREA_COLOUR_INDEX 
(ERRORJNDICATOR  :  out  ERROR  JSTUMBER; 

FILL_ ARE A_COLOUR :  out  COLOUR  JNDEX); 

procedure  INQ_LIST_OF_ASF 
(ERRORJNDICATOR  :  out  ERROR  JSTUMBER; 

LIST  :  out  ASFJJST); 


INQUIRE  CURRENT  NORMALIZATION  TRANSFORMATION  NUMBER  LEVEL  ma 

procedure  INQ_CURRENT_NORMALIZATION_TRANSFORMATION_NUMBER 
(ERRORJNDICATOR  :  out  ERROR  JSTUMBER; 

TRANSFORMATION  :  out  TRANSFORMATION JSUMBER); 


INQUIRE  LIST  OF  NORMALIZATION  TRANSFORMATION  NUMBERS  LEVEL  Oa 

procedure  INQ_LIST_OF_NORMALIZATION_TRANSFORMATION_NUMBERS 
(ERRORJNDICATOR  :  out  ERROR J4UMBER; 

LIST  :  out  TRANSFORMATION  J>RIORITY  JUST); 
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INQUIRE  NORMALIZATION  TRANSFORMATION 


procedure  INQ_NORMALIZATION_TRANSFORMATION 


(TRANSFORMATION 
ERROR  .INDICATOR 
WINDOW_LIMITS 
VIEWPORT  LIMITS 


in  TRANSFORMATION_NUMBER; 
out  ERROR_NUMBER; 
out  WC.RECTANGLE_LIMITS; 
out  NDC.RECTANGLE_LIMITS); 


LEVEL  ma 


INQUIRE  CLIPPING 


LEVEL  ma 


procedure  INQ_CLEPPING 
(ERRORJNDICATOR 
CLIPPING 

CLIPPING_RECT  ANGLE 


out  ERROR_NUMBER; 
out  CLIPPING  .INDICATOR; 
out  NDC.RECT ANGLE  JJMITS); 


INQUIRE  NAME  OF  OPEN  SEGMENT  LEVEL  1  a 

procedure  INQ_NAME_OF_OPEN_SEGMENT 
(ERRORJNDICATOR  :  out  ERROR  JNUMBER; 

SEGMENT  :  out  SEGMENT_NAME); 


INQUIRE  SET  OF  SEGMENT  NAMES  IN  USE 


LEVEL  la 


procedure  ENQ_SET_OF_SEGMENT_NAMES_IN_USE 
(ERRORJNDICATOR  :  out  ERROR JNUMBER; 
SEGMENTS  :  out  SEGMENT_NAMES.LIST_OF); 


INQUIRE  MORE  SIMULTANEOUS  EVENTS  LEVEL  me 

procedure  INQ_MORE_S  I  MULT  ANEOUSJE  VENTS 
(ERRORJNDICATOR  :  out  ERROR  JYUMBER; 

EVENTS  :  out  MORE_EVENTS); 


INQUIRE  WORKSTATION  CONNECTION  AND  TYPE 


LEVEL  ma 


procedure  INQ_WS_CONNECTION_AND_TYPE 
(WS  :  in  WS  JD; 

ERRORJNDICATOR  :  out  ERROR  JYUMBER; 

CONNECTION  :  out  VARIABLE_CONNECTION_ID; 

TYPE_OF_WS  :  out  WS _TYPE); 
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INQUIRE  WORKSTATION  STATE 

procedure  INQ  WS_STATE 
(WS 

ERROR  INDICATOR 

STATE 

in  WS  ID; 

out  ERROR_NUMBER; 
out  WS  STATE); 

LEVEL  Oa 

INQUIRE  WORKSTATION  DEFERRAL  AND  UPDATE  STATES 

LEVEL  Oa 

procedure  INQ_WS_DEFERRAL_AND_UPDATE_STATES 

(WS 

in  WS  ID; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

DEFERRAL 

out  DEFERRAL  MODE; 

REGENERATION 

out  REGENERATION  MODE; 

DISPLAY 

out  DISPLAY  SURFACE_EMPTY ; 

FRAME  ACTION 

out  NEW  FRAME  NECESSARY); 

INQUIRE  LIST  OF  POLYLINE  INDICES 

LEVEL  la 

procedure  INQ_LIST_OF_POLYLINE_INDICES 

(WS 

in  WS  ID; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

INDICES 

out  POLYLINE  INDICES. LIST  OF); 

INQUIRE  POLYLINE  REPRESENTATION 

LEVEL  la 

procedure  INQ_POLYLINE_REPRESENTATION 

(WS 

in  WS  ID; 

INDEX 

in  POLYLINEJNDEX; 

RETURNED  VALUES 

in  RETURN  VALUE  TYPE; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

TYPE  OF  LINE 

out  LINETYPE; 

WIDTH 

out  LINEWIDTH; 

LINE  COLOUR 

out  COLOUR  INDEX); 

INQUIRE  LIST  OF  POLYMARKER  INDICES 

LEVEL  la 

procedure  INQ_LIST_OF_POLYMARKER_INDICES 

(WS 

in  WS_ID; 

ERROR  JNDICATOR 

out  ERROR_NUMBER; 

INDICES 

out  POLYMARKER  INDICES.LIST_OF); 
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procedure  INQ_POLYMARKER_REPRESENTATION 
(WS  :  in  WS_ID; 


INDEX 

RETURNEDJV  ALUES 
ERROR  INDICATOR 

TYPE  OF  MARKER 

SIZE 

MARKER  COLOUR 

:  in  POLYMARKER  INDEX; 

:  in  RETURN_V ALUE  TYPE; 

:  out  ERROR  NUMBER; 

:  out  MARKER_TYPE; 

:  out  MARKER  SIZE; 

;  out  COLOUR  INDEX); 

INQUIRE  LIST  OF  TEXT  INDICES  LEVEL  1  a 

procedure  INQ_LIST_OF_TEXT_INDICES 
(WS  :  in  WS_ID; 


ERROR  INDICATOR 

INDICES 

out  ERROR  NUMBER; 

out  TEXT_INDICES.LIST_OF); 

INQUIRE  TEXT  REPRESENTATION  LEVEL  la 

procedure  INQ_TEXT_REPRESENTATION 
(WS  :  in  WS _ID; 


INDEX 

RETURNED  VALUES 
ERROR  INDICATOR 

FONT  PRECISION 
EXPANSION 

SPACING 

TEXT_COLOUR 

:  in  TEXT  INDEX; 

:  in  RETURN  VALUE  TYPE; 

:  out  ERROR  NUMBER; 

:  out  TEXT  FONT  PRECISION; 

:  out  CHAR  EXPANSION; 

:  out  CHAR  SPACING; 

:  out  COLOUR  JNDEX); 

INQUIRE  TEXT  EXTENT 

LEVEL  ma 

procedure  INQ_TEXT  EXTENT 
(WS 

POSITION 

CHAR  STRING 

ERROR  INDICATOR 
CONCATENATION  POINT 
TEXT_EXTENT 

:  in  WS  ID; 

:  in  WC. POINT; 

:  in  STRING; 

:  out  ERROR  NUMBER; 

:  out  WC. POINT; 

:  out  TEXT  EXTENT  PARALLELOGRAM); 
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INQUIRE  LIST  OF  FILL  AREA  INDICES 


LEVEL  la 


procedure  INQ_LIST_OF_FILL_AREA_INDICES 
(WS  :  in  WS_ID; 

ERRORJNDICATOR  :  out  ERROR  JSTUMBER; 

INDICES  :  out  FILL_AREA_INDICES  .LIST_OF); 


INQUIRE  FILL  AREA  REPRESENTATION 

procedure  INQ_FILL_AREA_REPRESENTATION 


LEVEL  la 


(WS 

INDEX 

RETURNED_V  ALUES 
ERRORJNDICATOR 
INTERIOR 
STYLE 

FILL  AREA  COLOUR 


:  in  WS  JD; 

:  in  FILL_AREAJNDEX; 

:  in  RETURN  J/ ALUE_TYPE; 
:  out  ERROR_NUMBER; 

:  out  INTERIOR  JITYLE; 

:  out  STYLE JNDEX; 

:  out  COLOUR  JNDEX); 


INQUIRE  LIST  OF  PATTERN  INDICES 


LEVEL  la 


procedure  INQ_LIST_OF_PATTERNJNDICES 
(WS  :  in  WS  JD; 

ERRORJNDICATOR  ;  out  ERROR JNUMBER; 

INDICES  ;  out  PATTERN JNDICES.LISTJDF); 


INQUIRE  PATTERN  REPRESENTATION  LEVEL  1  a 

procedure  INQ_PATTERN_REPRESENTATION 
(WS  :  in  WS  JD; 

INDEX  :  in  PATTERN  JNDEX; 

RETURNED_V ALUES  :  in  RETURN_V ALUE_TYPE; 

ERRORJNDICATOR  :  out  ERROR JStUMBER; 

PATTERN  :  out  VARIABLE  JSOLOURJvlATRIX); 


INQUIRE  LIST  OF  COLOUR  INDICES 


LEVEL  ma 


procedure  INQ_LIST_OF_COLOUR_INDICES 
(WS  :  in  WSJD; 

ERRORJNDICATOR  :  out  ERROR JS1UMBER; 

INDICES  :  out  COLOUR JNDICES.LISTJDF); 
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procedure  INQ_COLOUR_REPRESENTATION 
(WS  :  in  WS_ID; 

INDEX  :  in  COLOUR  JNDEX; 

RETURNED_ V ALUES  :  in  RETURN_VALUE_TYPE; 

ERROR_INDICATOR  :  out  ERROR_NUMBER; 

RGB  COLOUR  :  out  COLOUR_REPRESENTATION); 


LEVEL  ma 


INQUIRE  WORKSTATION  TRANSFORMATION 
procedure  INQ_WS_TRANSFORMATION 


(WS 

ERROR  .INDICATOR 
UPDATE 

REQUESTED_WINDOW 

CURRENT_WINDOW 

REQUESTED_VIEWPORT 

CURRENT_VIEWPORT 


in  WS _ID; 

out  ERROR_NUMBER; 
out  UPD ATE_ST ATE; 
out  NDC.RECTANGLE_LIMITS; 
out  NDC.RECTANGLE_LIMITS; 
out  DC.RECTANGLE_LIMITS; 
out  DC.RECT ANGLE  JJMITS); 


LEVEL  ma 


INQUIRE  SET  OF  SEGMENT  NAMES  ON  WORKSTATION  LEVEL  la 

procedure  INQ_S ET_OF_SEG MENT_N AMES_ON_W S 
(WS  :  in  WS_ID; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

SEGMENTS  :  out  SEGMENT_NAMES.LIST_OF); 


INQUIRE  LOCATOR  DEVICE  STATE  LEVEL  mb 

procedure  INQ_LOCATOR_DEVICE_STATE 
(WS  :  in  WS_ID; 

DEVICE  :  in  LOCATOR_DEVICE_NUMBER; 

RETURNED_V ALUES  :  in  RETURN_V ALUE_TYPE; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

MODE  :  out  OPERATING JTODE; 

SWITCH  :  out  ECHO_S WITCH; 

INITIAL_TRANSFORMATION  :  out  TRANSFORMATION_NUMBER; 

INITIAL_POS ITION  :  out  WC.POINT; 

ECHO_AREA  :  out  DC.RECTANGLE_LIMITS; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 
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INQUIRE  STROKE  DEVICE  STATE 

LEVEL  mb 

procedure  INQ_STROKE_DEVICE_STATE 

(WS 

in  WS  ID; 

DEVICE 

in  STROKE  DEVICE  NUMBER; 

RETURNED  VALUES 

in  RETURN  VALUE  TYPE; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

MODE 

out  OPERATING  MODE; 

SWITCH 

out  ECHO_S WITCH; 

INITIAL  TRANSFORMATION 

out  TRANSFORMATION  NUMBER; 

INITIAL  STROKE  POINTS 

out  WC. POINT  LIST; 

ECHO  AREA 

out  DC.RECTANGLE_LIMITS; 

DATA_RECORD 

out  STROKE_DATA_RECORD); 

INQUIRE  VALUATOR  DEVICE  STATE 

LEVEL  mb 

procedure  INQ_VALUATOR_DEVICE_STATE 

(WS 

in  WS  ID; 

DEVICE 

in  VALUATOR  DEVICE_NUMBER; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

MODE 

out  OPERATING_MODE; 

SWITCH 

out  ECHO  SWITCH; 

INITIAL  VALUE 

out  VALUATOR  INPUT  VALUE; 

ECHO  AREA 

out  DC. RECTANGLE  LIMITS; 

DATA  RECORD 

out  VALUATOR  DATA  RECORD); 

INQUIRE  CHOICE  DEVICE  STATE 

LEVEL  mb 

procedure  INQ_CHOICE  DEVICE  STATE 

(WS 

in  WS  ID; 

DEVICE 

in  CHOICE  DEVICE  NUMBER; 

ERROR  JNDICATOR 

out  ERROR_NUMBER; 

MODE 

out  OPERATING  MODE; 

SWITCH 

out  ECHO  SWITCH; 

INITIAL  STATUS 

out  CHOICE  STATUS; 

INITIAL  CHOICE 

out  CHOICE  VALUE; 

ECHO  AREA 

out  DC. RECTANGLE  LIMITS; 

DATA  RECORD 

out  CHOICE_DATA_RECORD); 
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INQUIRE  PICK  DEVICE  STATE 

LEVEL  lb 

procedure  INQ  PICK_DEVICE_STATE 

(WS 

in  WS  ID; 

DEVICE 

in  PICK  DEVICE  NUMBER; 

RETURNED  VALUES 

in  RETURN  VALUE  TYPE; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

MODE 

out  OPERATING  MODE; 

SWITCH 

out  ECHO  SWITCH; 

INITIAL  STATUS 

out  PICK  STATUS; 

INITIAL  SEGMENT 

out  SEGMENT  NAME; 

INITIAL  PICK 

out  PICK  ID; 

ECHO  AREA 

out  DC. RECTANGLE  LIMITS; 

DATA  RECORD 

out  PICK  DATA  RECORD); 

INQUIRE  STRING  DEVICE  STATE 

LEVEL  mb 

procedure  INQ_STRING_DEVICE_STATE 

(WS 

in  WS_ID; 

DEVICE 

in  STRING  DEVICE  NUMBER; 

ERROR  .INDICATOR 

out  ERROR  NUMBER; 

MODE 

out  OPERATING_MODE; 

SWITCH 

out  ECHO  SWITCH; 

INITIAL  STRING 

out  INPUT  STRING; 

ECHO  AREA 

out  DC. RECTANGLE  LIMITS; 

DATA  RECORD 

out  STRING  DATA  RECORD); 

INQUIRE  WORKSTATION  CATEGORY 

LEVEL  Oa 

procedure  INQ_WS  CATEGORY 
(TYPE  OF  WS  :  in  WS  TYPE; 

ERROR  INDICATOR  :  out  ERROR  NUMBER; 

CATEGORY  :  out  WS_CATEGORY); 

INQUIRE  WORKSTATION  CLASSIFICATION 

LEVEL  Oa 

procedure  INQ_WS  CLASSIFICATION 
(TYPE  OF  WS  :  in  WS  TYPE; 

ERROR  .INDICATOR  :  out  ERROR  NUMBER; 

CLASS  :  out  DISPLAY_CLASS); 
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INQUIRE  DISPLAY  SPACE  SIZE 


LEVEL  ma 


procedure  INQJDISPLAY_SPACE_SIZE 
(TYPE_OF_WS  :  in  WS_TYPE; 

ERRORJNDICATOR  :  out  ERROR  JNUMBER; 

UNITS  :  out  DC_UNITS; 

MAX_DC_SIZE  :  out  DC.SIZE; 

M  AX_R  ASTER  JJNIT^SIZE  :  out  RASTER  JJNIT_SIZE); 


INQUIRE  DYNAMIC  MODIFICATION  OF  WORKSTATION  ATTRIBUTES  LEVEL  la 


procedure  INQ_DYNAMIC_MODIFICATION_OF_WS_ ATTRIBUTES 


(TYPE_OF_WS 

ERRORJNDICATOR 

POLYLlNE_REPRESENTATION 

POLYMARKER_REPRESENTATION 

TEXT_REPRESENTATION 

FILL_AREA_REPRESENTATION 

PATTERN_REPRESENTATION 

COLOUR_REPRESENTATION 

TRANSFORMATION 


in  WSJTYPE; 
out  ERROR_NUMBER; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC  JTODIFICATION; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC  JTODIFICATION; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC_MODIFICATION); 


INQUIRE  DEFAULT  DEFERRAL  STATE  VALUES 


LEVEL  la 


procedure  INQ_DEFAULT_DEFERRAL_STATE_VALUES 
(TYPE_OF_WS  :  in  WS_TYPE; 

ERRORJNDICATOR  :  out  ERROR J4UMBER; 

DEFERRAL  :  out  DEFERRAL_MODE; 

REGENERATION  :  out  REGENERATION_MODE); 


INQUIRE  POLYLINE  FACILITIES 


procedure  INQ_POLYLINE_FACILITIES 


(TYPE_OF_WS 

ERRORJNDICATOR 

LIST_OF_TYPES 

NUMBER  JDF_WIDTHS 

NOMINAL_WIDTH 

RANGE_OF_WIDTHS 

NUMBER_OF  INDICES 


in  WS_TYPE; 

out  ERROR JVUMBER; 

out  LINETYPES.LIST_OF; 

out  NATURAL; 

out  DC. MAGNITUDE; 

out  DC.RANGE_OF_MAGNITUDES; 

out  NATURAL); 


LEVEL  ma 
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INQUIRE  PREDEFINED  POLYLINE  REPRESENTATION 

procedure  INQ_PREDEFINED_POLYLINE_REPRESENT ATION 


(T  YPE_OF_W  S 
INDEX 

ERRORJNDICATOR 

TYPE_OFJLINE 

WIDTH 

LINE_COLOUR 


in  WS_TYPE; 
in  POLYLINEJNDEX; 
out  ERROR_NUMBER; 
out  LINETYPE; 
out  LINEWIDTH; 
out  COLOURJNDEX); 


LEVEL  Oa 


INQUIRE  POLYMARKER  FACILITIES 


LEVEL  ma 


procedure  INQ_POLYMARKER_FACILITIES 


(TYPE_OF_WS 

ERRORJNDICATOR 

LIST_OF_TYPES 

NUMBER_OF_SIZES 

NOMINAL_SIZE 

RANGE_OF_SIZES 

NUMBER  OF  INDICES 


in  WS_TYPE; 

out  ERROR_NUMBER; 

out  MARKER_TYPES.LIST_OF; 

out  NATURAL; 

out  DC. MAGNITUDE; 

out  DC. RANGE JDF_MAGNITUDES; 

out  NATURAL); 


INQUIRE  PREDEFINED  POLYMARKER  REPRESENTATION 


LEVEL  Oa 


procedure  INQ_PREDEFINED_POLYMARKER_REPRESENTATION 


(TYPE_OF_WS 

INDEX 

ERRORJNDICATOR 

TYPE_OF_MARKER 

SIZE 

MARKER  COLOUR 


in  WS_TYPE; 

in  POLYMARKER JNDEX; 
out  ERROR  JVUMBER; 
out  MARKER_TYPE; 
out  MARKER_SIZE; 
out  COLOURJNDEX); 


INQUIRE  TEXT  FACILITIES 

procedure  INQ_TEXT_FACILITIES 
(TYPE_OF_WS 
ERRORJNDICATOR 
LIST_OF_FONT_PRECISION_PAIRS 
NUMBER_OF_HEIGHTS 
RANGE_OF_HEIGHTS 
NUMB  ER_OF_EXPANS  IONS 
EXPANSION_RANGE 
NUMBER  JDFJNDICES 


LEVEL  ma 


in  WS_TYPE; 

out  ERROR  JMUMBER; 

out  TEXT_FONT_PRECISIONS.LIST_OF; 

out  NATURAL; 

out  DC.RANGE_OF_MAGNITUDES; 
out  NATURAL; 

out  RANGE_OF_EXPANSIONS; 
out  NATURAL); 
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INQUIRE  PREDEFINED  TEXT  REPRESENTATION 

LEVEL  Oa 

procedure  INQ_PREDEFINED_TEXT_REPRESENTATION 

(TYPE  OF  WS 

in  WS  TYPE; 

INDEX 

in  TEXT  INDEX; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

FONT  PRECISION 

out  TEXT  FONT  PRECISION; 

EXPANSION 

out  CHAR  EXPANSION; 

SPACING 

outCHAR  SPACING; 

TEXT_COLOUR 

out  COLOUR  INDEX); 

INQUIRE  FILL  AREA  FACILITIES 

LEVEL  ma 

procedure  INQ_FELL_AREA_FACILITIES 

(TYPE  OF  WS 

:  in  WS  TYPE; 

ERROR  INDICATOR 

:  out  ERROR_NUMBER; 

LIST  OF  INTERIOR  STYLES  :  out  INTERIOR_STYLES.LIST_OF; 

LIST  OF  HATCH  STYLES 

:  out  HATCH  STYLES.LIST_OF; 

NUMBER_OF_INDICES 

;  out  NATURAL); 

INQUIRE  PREDEFINED  FILL  AREA  REPRESENTATION 

LEVEL  Oa 

procedure  INQ_PREDEFENED_FILL_AREA_REPRESENTATION 

(TYPE  OF  WS 

in  WS  TYPE; 

INDEX 

in  FILL_AREA_INDEX; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

INTERIOR 

out  INTERIOR  STYLE; 

STYLE 

out  STYLE  INDEX; 

FILL  AREA  COLOUR 

out  COLOUR  INDEX); 

INQUIRE  PATTERN  FACILITIES 

procedure  INQ_PATTERN  FACILITIES 
(TYPE  OF  WS  :  in  WS  TYPE; 

ERROR  INDICATOR  :  out  ERROR  NUMBER; 

NUMBER_OF_INDICES  :  out  NATURAL); 

LEVEL  Oa 

INQUIRE  PREDEFINED  PATTERN  REPRESENTATION 

LEVEL  Oa 

procedure  INQ  PREDEFINED 

PATTERN  REPRESENTATION 

(TYPE  OF  WS 

:  in  WS  TYPE; 

INDEX 

:  in  PATTERN  INDEX; 

ERRORJNDICATOR 

:  out  ERROR  NUMBER; 

PATTERN 

:  out  VARIABLE  COLOUR  MATRIX); 
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INQUIRE  COLOUR  FACILITIES 


LEVEL  ma 


procedure  INQ_COLOUR_FACILITIES 
(TYPE_OF_WS 
ERROR  .INDICATOR 
NUMBER_OF_COLOURS 
AVAILABLE_COLOUR 
NUMBER_OF_COLOUR_IN  DICES 


in  WS_TYPE; 

out  ERROR_NUMBER; 

out  NATURAL; 

out  COLOUR_AVAILABLE; 

out  NATURAL); 


INQUIRE  PREDEFINED  COLOUR  REPRESENTATION 


procedure  INQ_PREDEFINED_COLOUR_REPRESENTATION 
(TYPE_OF_WS  :  in  WS_TYPE; 

INDEX  :  in  COLOUR  .INDEX; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

RGB  COLOUR  :  out  COLOUR_REPRESENTATION); 


LEVEL  Oa 


INQUIRE  LIST  OF  AVAILABLE  GENERALIZED  DRAWING  PRIMITIVES  LEVEL  Oa 


procedure  INQ_LIST_OF_AVAILABLE_GDP 
(T YPE_OF_W S  :  in  WS_TYPE; 

ERRORJNDICATOR  :  out  ERROR JSUMBER; 

LISTJDFGDP  :  out  GDPJDS.LIST_OF); 


INQUIRE  GENERALIZED  DRAWING  PRIMITIVE 


LEVEL  Oa 


procedure  INQ_GDP 
(TYPE_OF_WS 
GDP 

ERRORJNDICATOR 

LI  S  T JDF_  ATTRI B  UTES  JJSE  D 


in  WSJTYPE; 
in  GDPJD; 

out  ERROR JSUMBER; 

out  ATTRIBUTES  JJSED. LIST  J3F); 


INQUIRE  MAXIMUM  LENGTH  OF  WORKSTATION  STATE  TABLES 


LEVEL  ma 


procedure  INQ_MAX_LENGTH_OF_WS_STATE_TABLES 


(TYPE_OF_WS 
ERRORJNDICATOR 
MAX_POLYLINE_ENTRIES 
MAX  J’OLYMARKERJENTRIES 
MAX_TEXT_ENTRIES 
MAX_FILL_AREA_ENTRIES 
MAX_PATTERN_INDICES 
MAX  COLOUR  INDICES 


in  WS_TYPE; 

out  ERROR_NUMBER; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL); 
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INQUIRE  NUMBER  OF  SEGMENT  PRIORITIES  SUPPORTED 

procedure  INQ_NUMBER_OF_SEGMENT_PRIORITIES_SUPPORTED 
(TYPE  OF  WS  :  in  WS_TYPE; 

ERROR  INDICATOR  :  out  ERROR_NUMBER; 

NUMBER_OF_PRIORITIES  :  out  NATURAL); 

LEVEL  la 

INQUIRE  DYNAMIC  MODIFICATION  OF  SEGMENT  ATTRIBUTES 

LEVEL  la 

procedure  INQ_DYNAMIC_MODIFICATION_OF_SEGMENT_ATTRIBUTES 

(TYPE  OF  WS 

:  in  WS  TYPE; 

ERROR  INDICATOR 

:  out  ERROR  NUMBER; 

TRANSFORMATION 

:  out  DYNAMIC_MODIFICATION; 

VISIBLE  TO  INVISIBLE 

:  out  DYNAMIC  MODIFICATION; 

INVISIBLE  TO  VISIBLE 

:  out  DYNAMIC_MODIFICATION; 

HIGHLIGHTING 

;  out  DYNAMIC  MODIFICATION; 

PRIORITY 

:  out  DYNAMIC  MODIFICATION; 

ADDING  PRIMITIVES 

:  out  DYNAMIC  MODIFICATION; 

DELETION  VISIBLE 

:  out  DYNAMIC  MODIFICATION); 

INQUIRE  NUMBER  OF  AVAILABLE  LOGICAL  INPUT  DEVICES 

LEVEL  mb 

procedure  INQ_NUMBER_OF_AVAILABLE_LOGICAL_INPUT_DEVICES 

(TYPE  OF  WS 

:  in  WS_TYPE; 

ERROR  INDICATOR 

:  out  ERROR  NUMBER; 

LOCATOR 

:  out  NATURAL; 

STROKE 

:  out  NATURAL; 

VALUATOR 

:  out  NATURAL; 

CHOICE 

:  out  NATURAL; 

PICK 

:  out  NATURAL; 

STRING 

:  out  NATURAL); 

INQUIRE  DEFAULT  LOCATOR  DEVICE  DATA 

LEVEL  mb 

procedure  INQ  DEFAULT  LOCATOR 

DEVICE  DATA 

(TYPE  OF  WS 

:  in  WS_TYPE; 

DEVICE 

:  in  LOCATOR  DEVICE  NUMBER; 

ERRORJNDICATOR 

:  out  ERROR  NUMBER; 

INITIAL  POSITION 

:  out  WC. POINT 

LIST  OF  PROMPT  ECHO  TYPES 

:  out 

LOCATOR_PROMPT_ECHO  TYPES.LIST  OF; 

ECHO  AREA 

:  out  DC.RECT ANGLE  LIMITS; 

DATA_RECORD 

:  out  LOCATOR_DATA_RECORD); 
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INQUIRE  DEFAULT  STROKE  DEVICE  DATA  LEVEL  mb 

procedure  ENQ_DEFAULT_STROKE_DEVICE_DATA 
(TYPE_OF_WS  :  in  WS_TYPE; 


DEVICE 

ERROR  INDICATOR 

MAX  BUFFER  SIZE 

LIST  OF  PROMPT  ECHO_TYPES 
ECHO  AREA 

DATA  RECORD 

in  STROKE_DEVICE_NUMBER; 
out  ERROR_NUMBER; 
out  NATURAL; 

out  STROKE  PROMPT  ECHO  TYPES.LIST  OF; 
out  DC.RECTANGLE_LIMITS; 
out  STROKE_DATA_RECORD); 

INQUIRE  DEFAULT  VALUATOR  DEVICE  DATA  LEVEL  mb 

procedure  INQ_DEFAULT_VALUATOR_DEVICE_DATA 
(TYPE_OF_WS  :  in  WS_TYPE; 


DEVICE 

ERROR  INDICATOR 

INITIAL  VALUE 

LIST_CF_PROMPT_ECHO_TYPES 

:  in  VALUATOR_DEVICE_NUMBER; 

:  out  ERROR  NUMBER; 

:  out  VALUATOR_INPUT_VALUE; 

:  out 

VALUATOR  PROMPT_ECHO_TYPES.LIST  OF; 

ECHO_AREA 

DATA_RECORD 

:  out  DC.RECTANGLE_LIMITS; 

:  out  VALUATOR  DATA_RECORD); 

INQUIRE  DEFAULT  CHOICE  DEVICE  DATA  LEVEL  mb 

procedure  INQ_DEFAULT_CHOICE_DEVICE_DATA 
(TYPE_OF_WS  :  in  WS_TYPE; 


DEVICE 

ERROR  INDICATOR 

MAX  CHOICES 

LIST  OF  PROMPT  ECHO  TYPES 
ECHO  AREA 

DATA_RECORD 

in  CHOICE  DEVICE  NUMBER; 
out  ERROR  NUMBER; 
out  CHOICE  VALUE; 

out  CHOICE  PROMPT  ECHO  TYPES.LIST  OF; 
out  DC. RECTANGLE  LIMITS; 
out  CHOICE_DATA_RECORD); 

INQUIRE  DEFAULT  PICK  DEVICE  DATA 

LEVEL  lb 

procedure  INQ_DEFAULT_PIC  K_DE  VICE_D  AT  A 
(TYPE_OF_WS  :  in  WS_TYPE; 


DEVICE 

ERROR  JNDICATOR 

LIST  OF  PROMPT  ECHO  TYPES 
ECHO  AREA 

DATA  RECORD 

:  in  PICK  DEVICE  NUMBER; 

:  out  ERROR  NUMBER; 

:  out  PICK  PROMPT  ECHO_TYPES.LIST_OF; 

:  out  DC.RECT ANGLE  LIMITS; 

:  out  PICK  DATA  RECORD); 
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INQUIRE  DEFAULT  STRING  DEVICE  DATA  LEVEL  mb 

procedure  INQ_DEFAULT_STRING_DEVICE_DATA 
(TYPE  OF  WS  :  in  WS  TYPE; 

DEVICE  :  in  STRING_DEVICE_NUMBER; 

ERROR  INDICATOR  :  out  ERROR  NUMBER; 

MAX  STRING  BUFFER  SIZE  :  out  NATURAL; 

LIST  OF  PROMPT_ECHO_TYPES  ;  out  STRING_PROMPT_ECHO_TYPES.LIST_OF; 

ECHO  AREA  :  out  DC.RECTANGLE_LIMITS; 

DATA_RECORD  :  out  STRING_DATA_RECORD); 

INQUIRE  SET  OF  ASSOCIATED  WORKSTATIONS 

LEVEL  la 

procedure  INQ_SET_OF_ASSOCIATED_WS 

(SEGMENT 

in  SEGMENT  NAME; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

LIST  OF  WS 

out  WS  IDS.LIST  OF); 

INQUIRE  SEGMENT  ATTRIBUTES 

LEVEL  la 

procedure  ENQ_SEGMENT_ATTRIBUTES 

(SEGMENT 

in  SEGMENT_NAME; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

TRANSFORMATION 

out  TRANSFORMATION  MATRIX; 

VISIBILITY 

out  SEGMENT  VISIBILITY; 

HIGHLIGHTING 

out  SEGMENT  HIGHLIGHTING; 

PRIORITY 

out  SEGMENT  PRIORITY; 

DETECTABILITY 

out  SEGMENT_DETECTABILITY); 

INQUIRE  PIXEL  ARRAY  DIMENSIONS 

LEVEL  Oa 

procedure  INQ  PIXEL  ARRAY 

DIMENSIONS 

(WS 

in  WS  ID; 

CORNERll 

in  WC. POINT; 

CORNER  DX  DY 

in  WC. POINT; 

ERROR  INDICATOR 

out  ERROR  NUMBER; 

DIMENSIONS 

out  RASTER_UNIT_SIZE); 
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procedure  INQ_PIXEL  ARRAY 
(WS 

CORNER 

DX 

DY 

ERRORJNDICATOR 
INVALID  VALUES 
PIXEL_ARRAY 

in  WS  ID; 

in  WC. POINT; 

in  RASTER  UNITS; 

in  RASTER  UNITS; 

out  ERROR  NUMBER; 

out  INVALID  VALUES  INDICATOR; 

out  VARIABLE_PIXEL_COLOUR_MATRIX); 

INQUIRE  PIXEL 

LEVEL  Oa 

procedure  INQ  PIXEL 
(WS 

POINT 

ERROR  INDICATOR 

PIXEL  COLOUR 

in  WSJD; 

in  WC. POINT; 

out  ERROR  NUMBER; 

out  PIXEL  COLOUR  INDEX); 

INQUIRE  INPUT  QUEUE  OVERFLOW  LEVEL  me 

procedure  INQJNPUT_QUEUE_OVERFLOW 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 


WS 

CLASS 

DEVICE 

:  out  WS  ID; 

:  out  INPUT  QUEUE  CLASS; 

:  out  EVENT  OVERFLOW  DEVICE  NUMBER); 
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EVALUATE  TRANSFORMATION  MATRIX 


LEVEL  la 


procedure  EVALUATE_TRANSFORMATION_MATRIX 
(FIXED_POINT  :  in  WC.POINT; 

SHIFT _ VECTOR  :  in  WC. VECTOR; 

ROT ATION_ANGLE  :  in  RADIANS; 

SCALE_F ACTORS  :  in  TRANSFORMATION_F ACTOR; 

TRANSFORMATION  :  out  TRANSFORMATION_MATRIX); 


procedure  EVALUATE_TRANSFORMATION_MATRIX 
(FIXED_POINT  :  in  NDC.POINT; 

S HIFT  VECTOR  :  in  NDC. VECTOR; 

ROTATION_ANGLE  :  in  RADIANS; 

SCALE_F ACTORS  :  in  TRANSFORMATION_FACTOR; 

TRANSFORMATION  :  out  TRANSFORMATION_MATRIX); 


ACCUMULATE  TRANSFORMATION  MATRIX 


LEVEL  la 


procedure  ACCUMULATE_TRANSFORMATION_MATRIX 


(SOURCE_TRANSFORMATION 

FIXED_POINT 

SHIFT_  VECTOR 

ROT  ATION_ANGLE 

SCALE_FACTORS 

RESULT_TRANSFORMATION 


:  in  TRANSFORMATION_MATRIX; 

:  in  WC.POINT; 

:  in  WC. VECTOR; 

:  in  RADIANS; 

:  in  TRANSFORMATION_F ACTOR; 

:  out  TRANSFORMATION_MATRIX); 


procedure  ACCUMULATE_TRANSFORMATION  MATRIX 


(SOURCE_TRANSFORMATION 
FIXED_POINT 
SHIFT_VECTOR 
ROTATION_  ANGLE 
SCALE_F  ACTORS 
RESULT_TRANSFORMATION 


:  in  TRANSFORMATION_MATRIX; 

:  in  NDC.POINT; 

:  in  NDC. VECTOR; 

:  in  RADIANS; 

:  in  TRANSFORM ATION_F ACTOR; 

:  out  TRANSFORMATION_MATRIX); 
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LEVEL  Oa 


ERROR  HANDLING  LEVEL  Oa 

procedure  ERROR_HANDLING 
(ERROR JNDICATOR  :  in  ERROR_NUMBER; 

GKS_FUNCTION  :  in  STRING; 

ERROR_FILE  :  in  STRING  :=  DEFAULT_ERROR_FILE) 


ERROR  LOGGING  LEVEL  Oa 

procedure  ERROR_LOGGING 
(ERROR_INDICATOR  :  in  ERROR_NUMBER; 

GKS_FUNCTION  :  in  STRING; 

ERROR_FILE  :  in  STRING  :=  DEFAULTJERROR_FILE); 
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5.2  Additional  Functions 

5.2.1  Subprograms  for  Manipulating  Input  Data  Records 

The  procedures  and  functions  defined  in  this  section  are  those  necessary  for  constructing  and  inquiring  the 
input  data  records,  declared  as  private  types  in  this  binding  for  each  of  the  six  classes  of  input  devices 
defined  by  the  GKS  specification  —  the  Locator,  Stroke,  Valuator,  Choice,  Pick,  and  String  logical  devices. 
The  procedures  listed  here  are  used  to  construct  the  data  records  for  each  of  the  registered  prompt  and  echo 
types  of  a  device  class  to  be  used  for  initialising  a  particular  input  device.  Assorted  functions  are  also 
provided  so  that  an  application  of  GKS/Ada  may  examine  the  parts  of  the  data  record  which  arc  defined  by 
GKS.  Any  implementation  specific  information  in  the  data  records  is  kept  private  and  unavailable.  The 
exception  GKS_ERROR  (error  class  LANGUAGE_BINDING_ERROR)  is  raised  if  any  of  the  below 
procedures  are  used  incorrectly.  That  is,  if  an  illegal  prompt  and  echo  type  is  used  for  a  build  procedure, 
then  error  number  2500  is  logged  onto  the  error  file. 

These  subprograms  are  required  at  level  mb. 

To  implement  implementation-dependent  and  registered  items,  an  implementation  may  provide  additional 
overloaded  versions  of  the  BUILD  procedures  in  this  section,  and  additional  functions  for  extracting 
information  from  the  private  data  records. 

-  Locator  Data  Record  Operations 

procedure  BUILD_LOCATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  LOCATOR_PROMPT_ECHO_TYPE; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 

—  Constructs  and  returns  a  locator  data  record  for  the  locator  prompt  and  echo 

-  types  1,2,3,  and  6. 

procedure  B  UILD_LOC ATOR_D  AT A_RECORD 

(PROMPT_ECHO_TYPE  :  in  LOCATOR_PROMPT_ECHO_TYPE; 

CONTENTS  :  in  LINE_DATA; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 

-  Constructs  and  returns  a  locator  data  record  for  the  locator  prompt  and  echo 

-  type  5  when  its  attributes  are  specified  by  Polyline  attributes. 

procedure  BUILD_LOCATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  LOCATOR_PROMPT_ECHO_TYPE; 

CONTENTS  :  in  FILL_AREA_DATA; 

DAT A_RECORD  :  out  LOCATOR_DATA_RECORD); 

-  Constructs  and  returns  a  locator  data  record  for  the  locator  prompt  and  echo 

-  type  5  when  its  attributes  are  specified  by  Fill  Area  attributes. 

function  ATTRIBUTE_FLAG 

(DATA_RECORD  :  in  LOCATOR_DATA_RECORD) 
return  ATTRIBUTES_FLAG; 

—  Returns  the  attribute  Hag  CURRENT  or  SPECIFIED  stored  in  the  data  record 

-  for  the  prompt  and  echo  types  4  and  5. 
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function  LOCATOR_ATTRIBUTES  JJSED 

(DATA_RECORD  :  in  LOCATOR_DATA_RECORD) 
return  ATTRIBUTES_USED_TYPE; 

—  Returns  which  attribute  set,  either  Polyline  or  Fill  Area,  stored  in  the  data  record 

—  for  prompt  and  echo  types  4  and  5. 

function  LINE_ATTRIBUTES 

(DATA  RECORD  :  in  LOCATOR_DATA_RECORD) 
return  LINE_DATA; 


-  Returns  the  Polyline  attribute  information  stored  in  the  data  record  for 
--  prompt  and  echo  types  4  or  5. 

function  FILL_AREA_  ATTRIBUTES 

(DATA_RECORD  :  in  LOCATOR_DATA_RECORD) 
return  FILL_AREA_DATA; 


-  Returns  the  Fill  Area  attribute  information  sotred  in  the  data  record  for 

-  prompt  and  echo  type  5. 

-  Stroke  Data  Record  Operations. 


procedure  BUILD_STROKE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  STROKE_PROMPT_ECHO_TYPE; 

BUFFER_SIZE  :  in  POSITIVE; 

POSITION  :  in  POSITIVE; 

INTERVAL  :  in  WC.SIZE; 

TIME  :  in  DURATION; 

DATA_RECORD  :  out  STROKE_DATA_RECORD); 


-  Constructs  and  returns  a  stroke  data  record  for  stroke  prompt  and  echo  types  1  and  2. 


procedure  BUILD_STROKE_DATA_RECORD 


(PROMPT_ECHO_TYPE 

BUFFER_SIZE 

POSITION 

INTERVAL 

TIME 

CONTENTS 
DATA  RECORD 


:  in  STROKE_PROMPT_ECHO_TYPE; 
:  in  POSITIVE; 

;  in  POSITIVE; 

:  in  WC.SIZE; 

:  in  DURATION; 

:  in  MARKER  DATA; 

:  out  STROKE_DATA_RECORD); 


-  Constructs  and  returns  a  stroke  data  record  for  stroke  prompt  and  echo  type  3. 

procedure  BUILD_STROKE_DATA_RECORD 

(PRO MPT_ECHO_T YPE  :  in  STROKE_PROMPT_ECHO_TYPE; 

BUFFER_SIZE  :  in  POSITIVE; 

POSITION  :  in  POSITIVE; 

INTERVAL  :  in  WC.SIZE; 

TIME  :  in  DURATION; 

CONTENTS  :  in  LINE_DATA; 

DATA_RECORD  :  out  STROKE_DATA_RECORD); 


-  Constructs  and  returns  a  stroke  data  record  for  stroke  prompt  and  echo  type  4. 
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function  BUFFER_SIZE 

(DATA_RECORD  :  in  STROKE_D AT A_RECORD) 
return  POSITIVE; 

-  Returns  the  size  of  the  input  stroke  buffer  stored  in  the  data  record  for  prompt  and 

-  echo  types  1,  2,  3  and  4. 

function  POSITION 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  POSITIVE; 

-  Returns  the  editing  position  within  the  stroke  input  buffer  stored  in  the  data  record 

-  for  prompt  and  echo  types  1,  2,  3,  and  4. 

function  INTERVAL 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  WC.SIZE; 

-  Returns  the  interval  value  stored  in  the  stroke  data  record  for  the  prompt  and  echo 

-  types  1, 2,  3,  and  4. 

function  TIME 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  DURATION; 

-  Returns  the  measuring  time  for  sampling  stroke  input  stored  in  the  stroke  data  record 

-  for  prompt  and  echo  types  1,2,3  and  4. 

function  MARKER_ATTRIBUTES 

(DAT A_RECORD  :  in  STROKE_DATA_RECORD) 
return  MARKER_DATA; 

-  Returns  the  Polymarker  attributes  used  to  echo  the  stroke  input  stored  in  the  data 

-  record  for  prompt  and  echo  type  3. 

function  LINE_ A 1 ' 1 RI BUTES 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  LINE_DATA; 

-  Returns  the  Polyline  attributes  used  to  echo  the  stroke  input  stored  in  the  data  record 

-  for  prompt  and  echo  type  4. 

-  Valuator  Data  Record  Operations. 

procedure  BUILD_VALUATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  VALUATOR_PROMPT_ECHO_TYPE; 

LOW_VALUE  :  in  VALUATOR  JNPUT_VALUE; 

HIGHJVALUE  :  in  VALUATOR JNPUT_VALLIE; 

DAT A_RECORD  :  out  VALUATOR_DATA_RECORD); 

—  Constructs  and  returns  a  valuator  data  record  for  the  valuator  prompt  and  echo 

-  types  1,  2,  and  3. 
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function  HIGH_VALUE 

(DATA_RECORD  :  in  VALUATOR_DATAJRECORD) 
return  VALUATOR  _INPUT_VALUE; 


—  Returns  the  high  value  for  the  valuator  stored  in  the  valuator  data  record  for 

—  prompt  and  echo  types  1,  2,  and  3. 

function  LOW_ VALUE 

(DATA_RECORD  :  in  VALUATOR_DATA_RECORD) 
return  VALUATOR JNPUT_VALUE; 

—  Returns  die  low  value  for  the  valuator  stored  in  the  valuator  data  record  for  prompt  and 

—  types  1,  2,  and  3. 


—  Choice  Data  Record  Operations. 

procedure  BUfLD_CHOICE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  CHOICE  J>ROMPT_ECHO_TYPE; 

DAT A_RECORD  :  out  CHOICE_D AT A_RECOR  D); 


—  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  type  1 . 

procedure  BUILD_CHOICE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  CHOICE  J>ROMPT_ECHO_TYPE; 

ARRAY_OF_PROMPTS  :  in  CHOICE  J>ROMPTS. LIST  JDF; 

DATA_RECORD  :  out  CHOICE_DATA_RECORD); 

—  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  type  2. 


procedure  BUfLD_CHOIC E_D AT A_RECOR  D 

(PROMPT_ECHO_TYPE  :  in  CHOICE_PROMPT_ECHO_TYPE; 

ARRAY_OF_STRINGS  :  in  CHOICE_PROMPT_STRING_LIST; 

DATA_RECORD  :  out  CHOICE_DAT A  ^RECORD); 

—  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  types  3  and  4. 


procedure  BUILD_CHOICE_DATA_RECORD 


(PROMPT_ECHO_TYPE 
SEGMENT 
LIST_OF_PICK_IDS 
DATA  RECORD 


in  CHOICE  J5ROMPTJECHO_TYPE; 
in  SEGMENT_NAME; 
in  PICK  JDS. LIST_OF; 
out  CHOICE_DATA_RECORD); 


—  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  type  5. 

function  ARRAY JDF_PROMPTS 

(DATA_RECORD  :  in  CHOICE_DATA_RECORD) 
return  CHOICE_PROMPTS.LIST_OF; 


—  Returns  the  array  of  prompts  stored  in  the  choice  data  record  for  prompt  and  echo 

—  type  2. 

function  ARRAY_OF_STRINGS 

(DATA_RECORD  :  in  CHOICE_DATA_RECORD) 
return  CHOICE  J>ROMPT_STRING  JUST; 

—  Returns  the  array  of  prompt  strings  stored  in  the  choice  data  record  for  prompt 

—  and  echo  types  3  and  4. 
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function  SEGMENT 

(DATA_RECORD  :  in  CHOICE_DATA_RECORD) 
return  SEGMENT_NAME; 

—  Returns  the  segment  name  stored  in  the  choice  data  record  for  prompt  and 

—  echo  type  5. 

function  LIST_OF_PICK_IDS 

(DATA_RECORD  :  in  CHOICE_DATA_RECORD) 
return  PICK_IDS_LIST.OF; 

—  Returns  the  list  of  pick  ids  stored  in  the  choice  data  record  for  prompt  and 

—  echo  type  5. 

—  Pick  Data  Record  Operation. 

procedure  BUILD_PICK_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  PICK_PROMPT_ECHO_TYPE; 

DATA_RECORD  :  out  PICK_DATA_RECORD); 

--  Construct  and  returns  a  pick  data  record. 

—  String  Data  Record  Operations. 

procedure  BUILD_STRING_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  STRING_PROMPT_ECHO_TYPE; 

INPUT_B UFFER_S IZE  :  in  NATURAL; 

INITIAL_CURSOR_POSITION  :  in  NATURAL; 

DATA_RECORD  :  out  STRfNG_DAT A_REC ORD) ; 

—  Construct  and  returns  a  string  data  record. 


function  INPUT_BUEFER_SIZE 

(DAT A_RECORD  :  in  STRING_DATA_RECORD) 
return  NATURAL; 

--  Returns  the  size  of  the  buffer  used  for  storing  string  input  stored  in  the  string 
--  data  record. 

function  INITIAL_CURSOR_POSITION 

(DATA_RECORD  :  in  STRING_DATA_RECORD) 
return  NATURAL; 

—  Returns  the  initial  cursor  position  for  string  input  stored  in  the  string  data  record. 


Functions 
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5.2.2  GKS  Generic  Coordinate  System  Package 

The  generic  package  declared  in  this  section  is  the  specification  of  a  generic  Cartesian  Coordinate  System 
for  GKS.  This  package  is  instantiated  three  times  for  data  types  specified  in  4.2.2  for  World  Coordinates, 
Normalized  Device  Coordinates,  and  Device  Coordinates.  The  package  defines  the  representation  of  a 
POINT,  a  POINT_ARRAY,  a  POINT_LIST,  a  VECTOR,  and  RECTANGLE_LIMITS  for  a  coordinate 
system.  Also  defined  is  a  MAGNITUDE  type  for  measuring  lengths  within  a  coordinate  space.  The  type 
SIZE  measures  lengths  parallel  to  both  axes,  and  the  RANGE_OF_MAGNITUDES  type  specifies  two 
lengths  within  a  coordinate  system,  a  minimum  and  maximum  for  values  such  as  the  range  of  Character 
Heights  available  on  a  device.  This  generic  is  included  in  Lhe  GKS  TYPES  package 

generic 

type  COORDINATE_COMPONENT_TYPE  is  digits  <>; 
package  GKS_COORDINATE_SYSTEM  is 

type  POINT  is 
record 

X  :  COORDINATE_COMPONENT_TYPE; 

Y  :  COORDINATE_COMPONENT_TYPE; 
end  record; 

type  POINT_ARRAY  is  array  (POSITIVE  range  <>)  of  POINT; 

type  POINT_LIST  (LENGTH  :  S M ALL_N ATUR AL  :=  0)  is 
record 

POINTS  :  POINT_ARRAY  (1.. LENGTH); 
end  record; 

type  VECTOR  is  new  POINT; 

type  RECTANGLE_LIMITS  is 
record 

XMIN  :  COORDINATE_COMPONENT_TYPE; 

XMAX  :  COORDINATE_COMPONENT_TYPE; 

YMIN  :  COORDINATE_COMPONENT_TYPE; 

YMAX  :  COORDINATE_COMPONENT_TYPE; 

end  record; 

type  MAGNITUDE_BASE_TYPE  is  digits  PRECISION; 

subtype  MAGNITUDE  is  MAGNITUDE_BASE_TYPE  range 

COORDINATE_COMPONENT_TYPE'SAFE_SMALL.. 

COORDINATE_COMPONENT_TYPE'SAFE_LARGE; 

type  SIZE  is 
record 

XAXIS  :  MAGNITUDE; 

YAXIS  :  MAGNITUDE; 

end  record; 

type  RANGE_OF_MAGNITUDES  is 
record 

MIN  :  MAGNITUDE; 

MAX  :  MAGNITUDE; 

end  record; 

end  GKS_COORDINATE_SYSTEM; 
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5.2.3  GKS  Generic  List  Utilities  Package 

The  generic  package  GKS_LIST_UTILITIES  is  instantiated  several  times  in  the  GKS_TYPES  package  to 
define  several  LIST_OF  types  and  their  manipulation  subprograms.  Each  LIST_OF  type  contains  different 
element  type  values. 

The  LIST_OF  type  is  declared  as  a  private  type  in  GKS_LIST_UTILITIES  to  restrict  Lhe  operations  on  the 
LIST_OF  type  that  are  available  to  outside  program  units.  The  LIST_OF  private  type  declaration  includes 
a  discriminant  part  that  defines  the  current  size  of  the  lists.  LIST_OF  objects  are  declared  as  unconstrained 
objects  (by  using  the  default  discriminant  value)  to  allow  dynamic  modification  of  the  list  size. 

A  LIST_OF  object  is  a  sequence  of  element  type  values.  Each  element  type  value  is  associated  with  an 
index.  Index  values  begin  at  one  and  increase  in  steps  of  one. 

The  size  of  a  LIST_OF  object  is  the  number  of  element  type  values  stored  within  it.  A  single  element  type 
value  may  be  stored  more  than  once  within  a  LIST_OF  object.  A  LIST_OF  object  may  be  empty.  The 
size  of  an  empty  LIST_OF  object  is  zero.  The  maximum  size  of  a  LIST_OF  object  is  given  by  the 
MAX_LIST_SIZE  generic  parameter.  If  this  parameter  is  not  specified  in  the  instantiation,  an 
implementation  dependent  default  value  is  used. 

-  The  LIST_OF  manipulation  subprograms  are: 
function  NULLJLIST  return  LIST_OF; 

-  This  function  returns  an  empty  LIST_OF  object.  This  list  is  intended  primarily  for  use 

-  by  GKS  implementors. 

procedure  ADD_TO_LIST 

(ELEMENT  :  in  ELEMENT.TYPE; 

LIST  :  in  out  LIST_OF); 

--  This  procedure  stores  the  element  parameter  value  in  the  list  parameter  object,  and  increases  the  size  of 

-  the  list  by  one.  An  index  value  equal  to  the  incremented  list  size  is  associated  with  the  stored  element 

-  value.  The  ADD_TO_LIST  procedure  will  generate  GKS_ERROR  2502  if  it  is  called  when  the  list 

-  parameter  has  a  size  equal  to  the  maximum  size.  If  desired,  the  user  can  ensure  duplicate  values  are  not 

-  stored.  This  is  accomplished  by  calling  ADD_TO_LIST  with  a  particular  element  value  only  if  the 

-  function  IS_IN_LIST  returns  false  for  that  element  value. 

procedure  DELETE_FROM_LIST 

(ELEMENT  :  in  ELEMENT_TYPE; 

LIST  :  in  out  LIST_OF); 

-  If  the  list  parameter  object  does  not  contain  the  element  parameter  value,  this  procedure  has  no  effect. 

-  Otherwise,  the  first  occurrence  of  the  element  value  is  deleted.  The  size  of  the  list  object  is  decreased 

-  by  one,  and  the  indices  associated  with  the  remaining  element  values  are  adjusted  so  that  the  indices 

-  begin  at  one  and  increment  in  steps  of  one.  If  desired,  the  user  can  delete  all  occurrences  of  an  element 

-  value.  This  is  accomplsihed  by  calling  DELETE_FROM_LIST  repeatedly  with  a  particular  element 

-  value  while  the  function  IS_IN_LIST  returns  TRUE  for  that  value. 

function  SIZE_OF_LIST 

(LIST  :  in  LIST_OF) 

return  NATURAL; 

-  This  function  returns  the  number  of  element  type  values  stored  in  the  list  object. 
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function  IS_IN_LIST 

(ELEMENT  :  in  ELEMENTJTYPE; 

LIST  :  in  LIST_OF) 

return  BOOLEAN; 

—  This  function  returns  the  value  TRUE  if  the  clement  parameter  value  is  in  the  list  object,  otherwise  it 
--  returns  FALSE. 

function  LIST_ELEMENT 

(INDEX  :  in  POSITIVE; 

LIST  :  in  LIST_OF) 

return  ELE MENT_T YPE ; 

—  This  function  returns  the  element  value  in  the  list  object  that  has  an  associated  index  value  equal  to  the 

—  index  parameter.  The  GKS_ERROR  2502  is  generated  if  the  index  parameter  exceeds  the  current 

—  size  of  the  list  parameter  object. 

function  LIST 

(VALUES  ;  in  LIST_VALUES) 

redim  LISTJDF; 

—  This  function  returns  a  valid  LIST_OF  object.  If  the  VALUES  parameter  is  a  null  array,  an  empty 

—  LISTJDF  object  is  returned.  If  the  values  parameter  is  not  null,  this  function  returns  a  LIST_OF  object 
--  containing  all  the  values  in  the  VALUES  parameter.  The  GKS_ERROR  2502  is  generated  if  the 

--  number  of  element  values  exceeds  the  maximum  size  of  the  LISTJDF  object. 

—  The  generic  package  specification  is: 
generic 

type  ELEMENT_TYPE  is  private; 

MAX_LIST_SIZE  :  POSITIVE  :=  implementation_defined; 

package  GKS  JUST JJTILITIES  is 

subtype  LIST_SIZE  is  NATURAL  range  0  ..  MAX_LIST_SIZE; 

type  LISTJDF  (SIZE  :  LIST_SIZE  :=  0)  is  private; 

type  LIST_VALUES  is  array  (POSITIVE  range  <>)  of  ELEMENT_TYPE; 

function  NULL_LIST 
return  LISTJDF; 

function  SIZEJDFJJST 

(LIST  :  in  LISTJDF) 

return  NATURAL; 

function  ISJN_LIST 

(ELEMENT  :  in  ELEMENT_TYPE 
LIST  :  in  LISTJDF) 

return  BOOLEAN; 

function  LIST_ELEMENT 

(INDEX  :  in  POSITIVE; 

LIST  :  in  LISTJDF) 

return  ELEMENT_TYPE; 
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function  LIST 
(VALUES 
return  LIST_OF; 


in  LISTJVALUES) 


procedure  ADD_TO_LIST 


(ELEMENT 

LIST 


in  ELEMENT_TYPE; 
in  out  LIST_OF); 


procedure  DELETE_FROM_LIST 


(ELEMENT 

LIST 


:  in  ELEMENT_TYPE; 
:  in  out  LIST_OF); 


private 


—  The  declaration  of  the  LIST_OF  type  is  implementation  dependent.  However,  the  operations  implicitly 
--  declared  by  the  LIST_OF  declaration,  including  both  assignment  and  the  predefined  comparison  for 

—  equality  and  inequality,  must  produce  the  correct  results.  This  requirement  precludes  the  use  of  access 

--  types  for  the  implementation  of  the  LIST_OF  type.  The  recommended  implementation  is  given  below: 

type  LISTJDF  (SIZE:  LIST_SIZE  :=  0)  is 
record 

ELEMENTS  :  LIST_VALUES  (1  ..  SIZE); 
end_record; 


—  Note  that  declaring  unconstrained  LISTJDF  objects  by  using  the  default  discriminant  value  allows 

—  dynamic  modification  of  the  size  of  the  element  array. 

end  GKS_LIST_UTILITIES; 
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5.2.4  Metafile  Function  Utilities 

Item  data  records  may  contain  lists  of  points,  character  strings,  arrays  of  colour  indices,  and  GDP  and  ESC 
data.  Record  length  depends  on  the  number  of  data  elements.  GKS  defines  that  the  format  is 
implementation  defined. 

The  item  data  record  type  should  be  private  to  allow  direct  manipulation  of  the  record  contents  in  order  to 
have  them  efficiently  processed. 

The  application  programmer  must  be  able  to  write  non-graphical  data  into  the  metafile.  This  can  be 
provided  by  allowing  character  strings  to  be  output.  Numeric  data  must  be  converted  to  a  string  by  the 
application  programmer  prior  to  calling  BUILD_NEW_GKSM_DATA_RECORD.  A  function  is  provided 
as  a  means  to  convert  item  data  records  into  strings. 


BUILD  NEW  GKSM  DATA  RECORD 

procedure  BUILD_NEW_GKSM_DATA_RECORD 

(TYPE_OF_ITEM  :  in  GKSM_ITEM_TYPE; 

ITEM_DATA  :  in  STRING; 

ITEM  :  out  GKSM_DATA_RECORD); 


ITEM  DATA  RECORD  STRING 

function  ITEM_DATA_RECORD_STRING 

(ITEM  ;  in  GKSM_DATA_RECORD) 
return  STRING; 


5.3  Conformal  Variants 

The  U.S.  Department  of  Defense  (DoD)  enforces  the  single  Ada  language  definition  of  ANSI/MIL-STD- 
1 8 15 A- 1983.  Since  no  subsets  or  supersets  of  the  Ada  language  are  allowed,  GKS/Ada  has  no  conformal 
variants.  Furthermore,  this  binding  does  not  require  the  use  of  any  Ada  language  feature  for  which  support 
of  that  feature  is  implementation-dependent. 
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Appendix  A 

Compiled  GKS  Specification 

(This  Appendix  does  not  form  an  integral  part  of  this  standard,  but  provides  additional  information) 
-  The  GKS_LIST_UTILITIES  generic  package  specification  is: 
generic 


type  ELEMENT_TYPE  is  private; 

MAX_LIST_SIZE  :  POSITIVE  :=  implementation_defined; 


package  GKS_LIST_UTILITIES  is 

subtype  LIST_SIZE  is  NATURAL  range  0  ..  MAX_LIST_SIZE; 

type  LIST_OF  (SIZE  :  LIST_SIZE  :=  0)  is  private; 

type  LISTJVALUES  is  array  (POSITIVE  range  <  >)  of  ELEMENT_TYPE; 


function  NULL_LIST  return  LIST_OF; 

function  SIZEJDF_LIST  (LIST 

:  in  LISTJDF)  return  NATURAL; 

function  IS  IN  LIST  (ELEMENT 

LIST 

:  in  ELEMENT  TYPE 
:  in  LISTJDF)  return  BOOLEAN; 

function  LIST  ELEMENT  (INDEX 

LIST 

:  in  POSITIVE; 

:  in  LISTJDF)  return  ELEMENT_TYPE; 

function  LIST  (VALUES  :  in  LIST_VALUES)  return  LISTJDF; 

procedure  ADD  TO  LIST  (ELEMENT 

LIST 

:  in  ELEMENT_TYPE; 

:  in  out  LISTJDF); 

procedure  DELETE_FROM_LIST  (ELEMENT 

LIST 

private 


:  in  ELEMENT_TYPE; 
:  in  out  LISTJDF); 


-  The  declaration  of  the  LIST_OF  type  is  implementation  dependent.  However,  the  operations  implicitly 

-  declared  by  the  LIST_OF  declaration,  including  both  assignment  and  the  predefined  comparison  for 

-  equality  and  inequality,  must  produce  the  correct  results.  This  requirement  precludes  the  use  of  access 

-  types  for  the  implementation  of  the  LIST_OF  type.  The  recommended  implementation  is  given  below: 

type  LIST_OF  (SIZE:  LIST_SIZE  :=  0)  is 

-  record 

ELEMENTS  :  LIST_VALUES  (1  ..  SIZE); 

-  end_record; 


-  Note  that  declaring  unconstrained  LIST_OF  objects  by  using  the  default  discriminant  value  allows 

—  dynamic  modification  of  the  size  of  die  element  array. 

end  GKS_LIST_UTILITIES; 
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wilh  GKS_LIST_UTILITIES; 

—  The  GKS_TYPES  Package, 
package  GKS_TYPES  is 

—  This  package  contains  all  the  data  type  definitions  used  to  define  the  Ada  binding  to  GKS. 

—  This  compilation  was  done  on  a  MicroVax  II  computer  using  the  Vax  Ada  compiler,  Version 

—  Tl.4-32.  The  values  for  implementation-dependent  types  or  subtypes  were  chosen  to  operate  in 
--  a  32-bit,  minicomputer  environment  wilh  virtual  memory.  These  values  would  need  to  be 

—  changed  for  microcomputer  or  fixed  memory-sized  machines. 

—  The  following  constants  are  implementation-dependent  and  define  maximum  implementation 

—  limits  for  GKS/Ada  types. 


PRECISION 

;  constant 

:=  6; 

SMALL  NATURAL  MAX 

:  constant 

:=  500 

STRING  SMALL  NATURAL 

MAX 

:  constant 

:=  100 

CHOICE  SMALL  NATURAL 

_MAX 

:  contstant 

:=  5; 

subtype  S M ALL_N ATUR AL  is  NATURAL  range  O..SMALL_NATURAL_MAX; 

—  This  is  an  implementation-dependent  subtype  declaration  that  allows  for  unconstrained  record 

—  objects  for  various  record  types  defined  below  without  causing  the  exception 
--  STORAGE_ERROR  to  be  raised. 

subtype  STRING_SMALL_NATURAL  is  NATURAL 

range  O..STRING_SMALL_NATURAL_MAX; 

—  This  is  an  implementation-dependent  subtype  declaration  that  allows  for  unconstrained 

—  record  objects  for  various  string  record  types  defined  below  without  causing  the 

—  exception  STORAGE_ERROR  to  be  raised. 

subtype  CHOICE_SMALL_NATURAL  is  NATURAL 

range  0..  CHOICE_SMALL_NATURAL_MAX; 

--  This  is  an  implementation-defined  subtype  declaration  that  allows  for  unconstrained 
--  record  objects  for  CHOICE_PROMPT_STRING_LIST  type  without  causing  the 

—  exception  STORAGE_ERROR  to  be  raised. 

—  The  GKS  Coordinate  System, 
generic 

type  COORDINATE_COMPONENT_TYPE  is  digits  <  >; 

package  GKS_COORDINATE_SYSTEM  is 

type  POINT  is 
record 

X  :  COORDINATE_COMPONENT_TYPE; 

Y  :  COORDINATE_COMPONENTTYPE; 
end  record; 

type  POINT_ARRAY  is  array  (POSITIVE  range  <  >)  of  POINT; 
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type  POINTLIST  (LENGTH  :  SMALL_NATURAL  :=  0)  is 
record 

POINTS  :  POINT.ARRAY  (1.. LENGTH); 
end  record; 


type  VECTOR  is  new  POINT; 

type  RECTANGLE_LIMITS  is 
record 

XMIN  :  COORDINATE_COMPONENT_TYPE; 

XMAX  :  COORDINATE_COMPONENT_TYPE; 

YMIN  :  COOR DIN ATE_COMPONENT_T YPE ; 

YMAX  :  COORDINATE_COMPONENT_TYPE; 

end  record; 

type  MAGNITUDE_BASE_TYPE  is  digits  PRECISION; 

subtype  MAGNITUDE  is  MAGNITUDE_BASE_TYPE  range 

COORDINATE_COMPONENT_TYPE'SAFE_SMALL.. 

COORDINATE_COMPONENT_TYPE'SAFE_LARGE; 


type  SIZE  is 
record 

XAXIS  :  MAGNITUDE; 

YAXIS  :  MAGNITUDE; 
end  record; 

type  RANGE_OF_MAGNITUDES  is 
record 

MIN  :  MAGNITUDE; 

MAX  :  MAGNITUDE; 
end  record; 

end  GKS_COORDINATE_SYSTEM; 
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—  ASF  LEVEL  Oa 

type  ASF  is  (BUNDLED,  INDIVIDUAL); 

—  This  type  defines  an  aspect  source  llag  whose  value  indicates  whether  an  aspect  of  a  primitive 

—  should  be  set  from  a  bundle  table  or  from  an  individual  attribute. 


-  ASF_LIST 

type  ASF  LIST  is 
record 

TYPE_OF_LINE_ASF 

WIDTH_ASF 

LINE_COLOUR_ASF 

TYPE_OF_MARKER_ASF 

SIZE_ASF 

MARKER_COLOUR_ASF 

FONT_PRECISION_ASF 

EXPANSION_ASF 

SPACING_ASF 

TEXT_COLOUR_ASF 

INTERIOR_ASF 

STYLE_ASF 

FILL_AREA_COLOUR_ASF 
end  record; 


LEVEL  Oa 


ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 
ASF  :=  INDIVIDUAL; 


—  A  record  containing  all  of  the  aspect  source  flags,  with  components  indicating  the 

—  specific  flag. 

—  ATTRIBUTES_FLAG  LEVEL  Oa 

type  ATTRIBUTES_FLAG  is  (CURRENT,  SPECIFIED); 


—  Indicates  whether  output  attributes  that  are  to  be  used  for  prompting  and 

—  echoing  are  to  be  as  currently  set,  or  as  explicitly  specified. 

— ATTRIBUTES_USED_TYPE  LEVEL  Oa 

type  ATTRIBUTES_USED_TYPE  is 
(POL  YLINE_ATTRI  BUTES , 

POLYMARKER_ATTRIBUTES, 

TEXT_ATTRIBUTES, 

FILL_AREA_ATTRIBUTES); 


-  The  types  of  attributes  which  may  be  used  in  generating  output  for  a  GDP  and  in 
--  generating  prompt  and  echo  information  for  certain  prompt  and  echo  types  of 

-  certain  classes  of  input  devices. 

-  ATTRIBUTES  USED  LEVEL  Oa 


package  ATTRIBUTES_USED  is 

new  GKS_LIST_UTILITIES  (ATTRIBUTES_USED_TYPE); 

—  Provides  for  a  list  of  the  attributes  used. 


Page  113 


Appendix  A 


Compiled  GKS  Specification 


-  SCALE_F  ACTOR  LEVEL  ma 

package  SCALE_FACTOR_TYPE  is 

-  This  package  is  used  to  encapsulate  the  derived  type  SCALE_FACTOR  since  it  is  used 

-  as  the  parent  of  several  other  derived  types.  In  Ada,  if  the  parent  of  a  derived  type  is 

-  itself  a  derived  type,  then  this  parent  type  cannot  be  declared  immediately  in  the  visible 

-  part  of  the  same  package. 

type  SCALE_F ACTOR  is  digits  PRECISION; 

-  The  type  used  for  unitless  scaling  factors, 
end  SCALE_FACTOR_TYPE; 

use  SCALE_FACTOR_TYPE; 

-  CHAR_EXPANSION  LEVEL  ma 

type  CHAR_EXPANSION  is  new  SCALE_FACTOR  range 

S  CALE_FACTOR'S  AFE_S  MALL.  .SC  ALE_FACTOR'L  AST; 

-  Defines  a  character  expansion  factor.  Factors  are  unitless,  and  must  be  greater  than  zero. 

-  CHAR_SPACING  LEVEL  ma 

type  CHAR_SPACING  is  new  SCALE_F ACTOR; 

-  Defines  a  character  spacing  factor.  The  factors  are  unitless.  A  positive  value  indicates 

-  the  amount  of  extra  space  between  characters  in  a  text  string,  and  a  negative  value 

-  indicates  the  amount  of  overlap  between  character  boxes  in  a  text  string. 

-  DEVICE_NUMBER  LEVEL  mb 

package  DEVICE_NUMBER_TYPE  is 

type  DEVICEJNTJMBER  is  new  POSITIVE; 

--  Logical  input  devices  are  referenced  as  device  numbers, 
end  DEVICE_NUMBER_TYPE; 
use  DEVICE_NUMBER_TYPE; 

-  CHOICE_DEVICE_NUMBER  LEVEL  mb 

type  CHOICE_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

-  Provides  for  choice  device  identifiers. 

-  LOCATOR_DEVICE_NUMBER  LEVEL  mb 

type  LOCATOR_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

-  Provides  for  locator  device  identifiers. 

-  PICK_DEVICE_NUMBER  LEVEL  lb 

type  PICK_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

-  Provides  for  pick  devices. 
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-  STRING_DEVICE_NUMBER  LEVEL  mb 

type  STRING_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

-  Provides  for  string  device  number. 

-  STROKE_DEVICE_NUMBER  LEVEL  mb 

type  STROKE_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

--  Provides  for  stroke  device  numbers. 

-  VALUATOR_DEVICE_NUMBER  LEVEL  mb 

type  VALUATOR_DEVICE_NUMBER  is  new  DEVICE_NUMBER; 

-  Provides  for  valuator  device  identifiers. 

-  CHOICE_PROMPT  LEVEL  mb 

type  CHOICE_PROMPT  is  (OFF.ON); 

-  Indicates  for  a  choice  prompt  and  echo  type  whether  a  specified  prompt  is  to  be 

-  displayed  or  not. 

-  CHOICE  JPROMPTS  LEVEL  mb 

package  CHOICE_PROMPTS  is 

new  GKS_LIST_UTILITIES  (CHOICE_PROMPT); 

-  Provides  for  lists  of  prompts. 

-  CHOICE_PROMPT_ECHO_TYPE  LEVEL  mb 

type  CHOICE_PROMPT_ECHO_TYPE  is  new  INTEGER; 

-  Defines  the  choice  prompt  and  echo  type. 

-  CHOICE_PROMPT_ECHO_TYPES  LEVEL  mb 

package  CHOICE_PROMPT_ECHO_TYPES  is 

new  GKSJLISTUTILITIES  (CHOICE_PROMPT_ECHO_TYPE); 

-  Provides  for  lists  of  choice  prompt  and  echo  types. 

-  CHOICE_PROMPT_STRING  LEVEL  mb 

type  CHOICE_PROMPT_STRING  (LENGTH  :  STRING_S M ALL_N ATUR AL  :=  0)  is 
rccord 

CONTENTS  :  STRING  (L. LENGTH); 
end  record; 

-  Provides  for  a  variable  length  prompt.  Objects  of  this  type  should  be  declared 

-  unconstrained  to  allow  for  dynamic  modification  of  the  length. 
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-  CHOICE  J>ROMPT_STRING_ARRAY  LEVEL  mb 

type  CHOICE_PROMPT_STRING_ARRAY  is  array  (POSITIVE  range  <  >) 
of  CHOICE_PROMPT_STRING; 

-  Provides  for  an  array  of  prompt  strings. 

-  CHOICE_PROMPT_STRING_LIST  LEVEL  mb 

type  CHOICE  J’ROMPTJSTRING  JUST  (LENGTH  :  CHOICE_SMALL_NATURAL  :=  0) 
is  record 

LIST  :  CHOICE_PROMPT_STRING_ARRAY  (L. LENGTH?); 
end  record; 

-  Provides  for  lists  of  prompt  strings. 

-  CHOICE_REQUEST_STATUS  LEVEL  mb 

type  CHOICE_REQUES T_ST ATU S  is  (OK,  NOCHOICE,  NONE); 

-  Defines  the  status  of  a  choice  input  operation  for  the  request  function. 

-  CHOICE  JSTATUS  LEVEL  mb 

subtype  CHOICE_STATUS  is  CHOICE_REQUEST_STATUS  range  OK..NOCHOICE; 

-  Indicates  if  a  choice  was  made  by  the  operator  for  the  sample,  get,  and  inquiry  functions. 

-  CHOICE_V ALUE  LEVEL  mb 

type  CHOICE_ V ALUE  is  new  POSITIVE; 

-  Defines  the  choice  values  available  on  an  implementation. 

-  CLIPPING JNDICATOR  LEVEL  ma 

type  CLIPPING  JNDICATOR  is  (CLIP,  NOCLIP); 

--  Indicates  whether  or  not  clipping  is  to  be  performed. 

-  COLOUR_AVAILABLE  LEVEL  ma 

type  COLOUR_AVAILABLE  is  (COLOUR,  MONOCHROME); 

-  Indicates  whether  colour  output  is  available  on  a  workstation. 

-  PIXEL_COLOUR_INDEX  LEVEL  ma 

type  PIXEL_COLOURJNDEX  is  new  INTEGER  range  -L.INTEGER'LAST; 

-  A  type  for  the  pixel  colour  where  the  value  -1  represents  an  invalid  colour  index. 
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-  COLOURJNDEX  LEVEL  ma 

subtype  COLOUR_INDEX  is  PIXEL_COLOUR_INDEX 
range  O..PIXEL_COLOURJNDEX'LAST; 

-  Indices  into  colour  tables  are  of  this  type. 

-  COLOURJNDICES  LEVEL  ma 

package  COLOURJNDICES  is  new  GKS  JJSTJJTILITIES  (COLOUR JNDEX); 

-  Provides  for  a  set  of  colour  indices  which  are  available  on  a  particular  workstation. 

-  COLOUR  J4ATRIX  LEVEL  ma 

type  COLOUR_MATRIX  is  array  (POSITIVE  range  <  >, POSITIVE  range  <  >) 

of  COLOUR  JNDEX; 

--  Provides  for  matrices  containing  colour  indices  corresponding  to  a  cell  array  or  pattern  array. 

-  INTENSITY  LEVEL  ma 

type  INTENSITY  is  digits  PRECISION  range  0.0. .1.0; 

-  Defines  the  range  of  possible  intensities  of  a  colour. 

-  COLOUR JLEPRES ENT ATION  LEVEL  ma 

type  COLOUR  JIEPRESENTATION  is 
record 

RED  :  INTENSITY; 

GREEN  :  INTENSITY; 

BLUE  :  INTENSITY; 
end  record; 

-  Defines  the  representation  of  a  colour  as  a  combination  of  intensities  in  an  RGB  colour  system. 

-  CONTROL JT-AG  LEVEL  ma 

type  CONTROL JT. AG  is  (CONDITIONALLY,  ALWAYS); 

-  The  control  flag  is  used  to  indicate  the  conditions  under  which  the  display 

-  surface  should  be  cleared. 

-  DCJTYPE  LEVEL  ma 

type  DCJTYPE  is  digits  PRECISION; 

-  The  type  of  a  coordinate  in  the  Device  Coordinate  System. 

-  DC  LEVEL  ma 

package  DC  is  new  GKS_COORDINATE_SYSTEM  (DCJTYPE); 

-  Defines  the  Device  Coordinate  System. 
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-  DCJJNITS  LEVEL  ma 

type  DCJJNITS  is  (METRES,  OTHER); 

-  Device  coordinate  units  for  a  particular  workstation  should  be  in  metres  unless  the  device  is 

-  incapable  of  producing  a  precisely  scaled  image,  and  appropriate  workstation  dependent  units 

-  otherwise. 

-  DEFERRAL JVIODE  LEVEL  ma 

type  DEFERRAL_MODE  is  (ASAP,  BNIG,  BNIL,  ASTI); 

-  Defines  the  four  GKS  deferral  modes. 

-  DISPLAY_CLASS  LEVEL  Oa 

type  DISPLAY  JJLASS  is  (VECTOR  JNSPLAY, 

RASTER  JJISPLAY, 

OTHER  J3ISPLAY); 

-  The  classification  of  a  workstation  of  category  OUTPUT  or  OUTIN. 

-  DISPLAY_SURFACE_EMPTY  LEVEL  Oa 

type  DISPLAY_SURFACE_EMPTY  is  (EMPTY,  NOTEMPTY); 

-  Indicates  whether  the  display  surface  is  empty. 

-  DYNAMIC_MODIFICATION  LEVEL  la 

type  DYNAMIC JVIODIFICATION  is  (IRG,  IMM); 

-  Indicates  whether  an  update  to  the  state  list  is  performed  immediately  (IMM) 

-  or  requires  implicit  regeneration  (IRG). 

-  ECHO_S WITCH  LEVEL  mb 

type  ECHO  Js  WITCH  is  (ECHO,  NOECHO); 

-  Indicates  whether  or  not  echoing  of  the  prompt  is  performed. 

-  ERROR  JJUMBER  LEVEL  ma 

type  ERROR  JJUMBER  is  new  INTEGER; 

-  Defines  the  type  for  error  indicator  values. 
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-  INPUT_CLASS 


LEVEL  mb 


type  INPUT_CLASS  is  (NONE, 

LOCATOR_INPUT, 

STROKE_INPUT, 

VALUATORJNPUT, 

CHOICEJNPUT, 

PICKJNPUT 

STRENG_INPUT); 

—  Defines  the  input  device  classifications  for  workstations  of  category  INPUT  or  OUTIN. 


-  EVENT_DEVICE_NUMBER 


LEVEL  me 


type  EVENT_DEVICE_NUMBER  (CLASS  :  INPUT_CLASS  :=  NONE)  is 
record 

case  CLASS  is 


when  NONE 

when  LOCATOR_INPUT 

when  STROKEJNPUT 

when  VALUATORJNPUT 

when  CHOICEJNPUT 

when  PICKJNPUT 

when  STRING  JNPUT 

end  case; 
end  record; 


=>  null; 

=>  LOCATOR_EVENT_DEVICE 

:  LOCATOR_  DEVICE_NUMBER; 

=>  STROKE_EVENT_DEVICE 

:  STROKE_DEVICE_NUMBER; 

=>  V ALU ATOR_E VENT_DE VICE 

:  VALUATOR_DEVICE_NUMBER; 

=>  CHOICE_EVENT_DEVICE 

:  CHOICE JDEVICE  NUMBER; 

=>  PICK  Ji  VENT J3EVICE 
:  PICK_DEVICE_NUMBER; 

=>  STRING_EVENT_DEVICE 

:  STRING_DEVICE_NUMBER; 


—  Provides  for  returning  any  class  of  device  number  from  the  event  queue. 

-  INPUT  QUEUE JSLASS  LEVEL  me 


subtype  INPUT_QUEUE_CLASS  is  INPUT JSLASS  range 
LOCATOR  JNPUT  ..  STRING  JNPUT; 

--  Defines  the  input  device  classifications  for  situations  in  which  the  NONE  classification 
—  is  impossible. 
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-  EVENT_OVERFLOW_DEVICE_NUMBER  LEVEL  me 

type  EVENT_OVERFLOW_DEVICE_NUMBER 


(CLASS  :  INPUT_QUEUE_CLASS 


record 

case  CLASS  is 

when  LOCATOR_INPUT  => 

when  STROKE_INPUT  => 

when  VALUATORJNPUT  => 

when  CHOICE_INPUT  => 

when  PICKJNPUT  => 

when  STRING_INPUT  => 

end  case; 
end  record; 

-  FILL  AREA  INDEX 


type  FILL_AREA_INDEX  is  new  POSITIVE 
-  Defines  fill  area  bundle  table  indices. 


:=  LOCATORJNPUT)  is 


LOCATOR„EVENT_DEVICE 
:  LOCATOR,  DEVICE_NUMBER; 
STROKE_EVENT_DEVICE 
:  STROKE_DEVICE_NUMBER; 
VALUATOR_EVENT_DEVICE 
:  VALUATOR_DEVICE_NUMBER; 
CHOICE_E  VENT_DE  VICE 
:  CHOICE_DEVICE_NUMBER; 
PICK_EVENT_DEVICE 
:  PICK_DEVICE_NUMBER; 
STRING_EVENT_DEVICE 
:  STRING_DEVICE_NUMBER; 


LEVEL  Oa 


-  INTERIOR_STYLE  LEVEL  ma 

type  INTERIOR_STYLE  is  (HOLLOW,  SOLID,  PATTERN,  HATCH); 


-  Defines  the  fill  area  interior  styles. 

-  STYLE_INDEX  LEVEL  Oa 

type  STYLE JNDEX  is  new  INTEGER; 


-  A  style  index  is  either  a  HATCH_STYLE  or  a  PATTERN_STYLE. 
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-FILL_AREA_DATA 

type  FILL_AREA_DATA  (ATTRIBUTES 
record 

case  ATTRIBUTES  is 
when  SPECIFIED  => 
STYLE_ASF 
STYLE_INDEX_ASF 
COUOUR_ASF 
INDEX 
INTERIOR 
STYLE 

FILL_AREA_COLOUR 
when  CURRENT  =>  NULU; 
end  case; 
end  record; 


LEVEL  mb 

:  ATTRIBUTES_FLAG  ;=  CURRENT)  is 


ASF; 

ASF; 

ASF; 

FILL_AREA_INDEX; 
INTERIOR_STYLE; 
STYLE_INDEX; 
COLOUR  JNDEX; 


-  A  record  containing  information  needed  for  input  data  records  to  specify  the  appearance  of  a 

-  filled  area.  It  is  also  used  for  results  of  inquiry  about  the  contents  of  data  records.  The 

-  information  stored  in  this  record  is  accessible  through  the  use  of  the  subprograms  for 

-  manipulating  data  records. 

-  FILL  AREAJNDICES  LEVEL  Oa 


package  FILL_AREA_INDICES  is 

new  GKS_LIST_UTILITIES  (FILL_AREA_INDEX); 

-  Provides  for  lists  of  fill  area  bundle  table  indices. 


-  GDPJD  LEVEL  Oa 

type  GDP_ID  is  new  INTEGER; 

-  Selects  among  the  kinds  of  Generalized  Drawing  Primitives. 

-  GDPJDS  LEVEL  Oa 

package  GDPJDS  is  new  GKS  JJSTJJTILITIES  (GDPJD); 

--  Provides  for  lists  of  Generalized  Drawing  Primitive  ID's. 

-  GKSJJEVEL  LEVEL  ma 

type  GKS_LEVEL  is  (Lma,  Lmb,  Lmc,  LOa,  LOb,  LOc,  Lla,  Lib,  Lie,  L2a,L  2b,  L2c); 

--  The  valid  Levels  of  GKS. 


-  GKSMJTEMJTYPE  LEVEL  Oa 

type  GKSMJTEMJTYPE  is  new  NATURAL; 

-  The  type  of  an  item  contained  in  a  GKSM  metafile. 
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-  HATCH_STYLE  LEVEL  ma 

subtype  HATCH_STYLE  is  STYLE JNDEX; 

—  Defines  the  fill  area  hatch  styles  type. 

-  HATCH.STYLES  LEVEL  ma 

package  HATCH_STYLES  is  new  GKS_LIST_UTILITIES  (HATCH_STYLE); 

--  Provides  for  lists  of  hatch  styles. 

-  HORIZONTAL.  ALIGNMENT  LEVEL  ma 

type  HORIZONTAL.  ALIGNMENT  is  (NORMAL,  LEFT,  CENTRE,  RIGHT); 

—  The  alignment  of  the  text  extent  parallelogram  with  respect  to  the  horizontal 

—  positioning  of  the  text. 

-  IMPLEMENT ATION.DEFINED.ERROR  LEVEL  ma 

subtype  IMPLEMENT  ATION.DEFINED.ERROR  is  ERROR_NUMBER 
range  ERROR_NUMBER'FIRST  ..  -1; 

—  Defines  the  range  of  ERROR.NUMBERS  to  indicate  that  an  implementation 

-  defined  error  has  occurred. 

-  INPUT_STATUS  LEVEL  mb 

type  INPUT.STATUS  is  (OK,  NONE); 

—  Defines  the  status  of  a  locator,  stroke,  valuator,  or  string  operation. 

-  INPUT_STRING  LEVEL  mb 

type  INPUT  STRING  (LENGTH  :  STRING_SMALL_NATURAL  :=  0)  is 
record 

CONTENTS  :  STRING  (L. LENGTH); 
end  record; 

—  Provides  a  variable  length  string.  Objects  of  this  type  should  be  declared 

—  unconstrained  to  allow  for  dynamic  modification  of  the  length. 

-  INTERIOR.STYLES  LEVEL  ma 

package  INTERIOR.STYLES  is 

new  GKS.LIST.UTILITIES  (INTERIOR.STYLE); 

—  Provides  for  lists  of  interior  styles. 

-  EN V ALID_V ALUES_INDIC ATOR  LEVEL  0a 

type  INVALID_VALUES .INDICATOR  is  (ABSENT,  PRESENT); 

—  Indicates  whether  the  value  -1  (i.e.  "invalid")  is  absent  from  or  present 
--  in  the  PIXEL  ARRAY  parameter  returned  by  INQ.P1XEL.ARRAY. 
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-  LANGUAGE_BINDING_ERROR  LEVEL  ma 

subtype  LANGUAGE_BINDING_ERROR  is  ERROR_NUMBER 
range  2500  ..  2999; 

-  Defines  the  range  of  ERROR_NUMBERS  to  indicate  that  a  language  binding 

-  error  has  occurred. 


-  POLYLINEJNDEX  LEVEL  0a 

type  POLYLINEJNDEX  is  new  POSITIVE; 

-  Defines  the  range  of  polyline  indices. 

-  LINETYPE  LEVEL  ma 

type  LINETYPE  is  new  INTEGER; 

-  Defines  the  types  of  line  styles  provided  by  GKS. 

-  LINE  WIDTH  LEVEL  ma 


type  LINEWIDTH  is  new  SCALE_F ACTOR  range  O.O..SCALE_FACTOR’LAST; 


-  The  width  of  a  line  is  indicated  by  a  scale  factor. 

-  LINE_DATA  LEVEL  mb 


type  LINE_DATA  (ATTRIBUTES  :  ATTRIBUTES_FLAG  :=  CURRENT)  is 
record 


case  ATTRIBUTES  is 
when  SPECIFIED  => 


LINE_ASF 

WIDTH_ASF 

COLOUR_ASF 

INDEX 

LINE 

WIDTH 

L  INE_C  OLOUR 


ASF; 

ASF; 

ASF; 

POLYLINEJNDEX; 
LINETYPE; 
LINEWIDTH; 
COLOUR JNDEX; 


when  CURRENT  =>  NULL; 


end  case; 


end  record; 


-  A  record  containing  information  needed  for  input  data  records  to  specify  the  appearance  of 

-  prompting  and  echo  types.  It  is  also  used  for  results  of  inquiry  about  the  contents  of  data 
--  records.  The  information  stored  in  this  record  is  accessible  through  the  use  of  the 

--  subprograms  for  manipulating  data  records. 

-  LINETYPES  LEVEL  ma 


package  LINETYPES  is  new  GKS_LIST_UTILITIES  (LINETYPE); 
-  Provides  for  lists  of  line  types. 
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-  LOCATOR  J>ROMPTJ2CHOJTYPE  LEVEL  mb 

type  LOCATOR  J>ROMPT_ECHO_TYPE  is  new  INTEGER; 

-  Defines  the  locator  prompt  and  echo  types  supported  by  the  implementation. 

-  LOCATOR_PROMPT_ECHO_TYPES  LEVEL  mb 

package  LOCATOR_PROMPT_ECHO_TYPES  is 

new  GKS_LIST_UTILITIES  (LOCATOR_PROMPT_ECHO_TYPE); 


-  Provides  for  lists  of  locator  prompt  and  echo  types. 

-  POLYMARKER  JNDEX  LEVEL  Oa 

type  POLYMARKER  JNDEX  is  new  POSITIVE; 

--  Defines  the  range  of  polymarker  bundle  table  indices. 

-  MARKER_SIZE  LEVEL  ma 

type  MARKER_SIZE  is  new  SCALE  J7 ACTOR  range  O.O..SCALE_FACTOR'LAST; 

-  The  size  of  a  marker  is  indicated  by  a  scale  factor. 

-  MARKER_TYPE  LEVEL  ma 

type  MARKER_TYPE  is  new  INTEGER; 

-  Defines  the  type  for  markers  provided  by  GKS. 

-  MARKER_DATA  LEVEL  mb 


type  MARKER  JDATA  (ATTRIBUTES  : 
record 

case  ATTRIBUTES  is 
when  SPECIFIED  => 
MARKER_ASF 
SIZE_ASF 
COLOUR_ASF 
INDEX 
MARKER 
SIZE 

MARKER  J^OLOUR 
when  CURRENT  =>  NULL; 
end  case; 
end  record; 


ATTRIBUTES  J^LAG  :=  CURRENT)  is 


ASF; 

ASF; 

ASF; 

POLYMARKER  JNDEX; 
MARKER  JTYPE; 
MARKER_SIZE; 
COLOUR_INDEX 


-  A  record  containing  information  needed  for  input  data  records  to  specify  the 

-  appearance  of  prompting  and  echo  types.  It  is  also  used  for  results  of  inquiry  about 

-  the  contents  of  data  records.  The  information  stored  in  this  record  is  accessible  through 

-  the  use  of  the  subprograms  for  manipulating  data  records. 
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-  MARKER_TYPES  LEVEL  ma 

package  MARKER_TYPES  is  new  GKS_LIST_UTILITIES  (MARKER_TYPE); 

—  Provides  for  lists  of  marker  types. 


-  MORE_EVENTS 

LEVEL  me 

type  MORE_EVENTS  is  (NOMORE,  MORE); 


-  Indicates  whether  more  events  are  contained  in  the  input  event  queue. 

-  NDC_TYPE 

LEVEL  ma 

type  NDCJTYPE  is  digits  PRECISION; 

—  Defines  the  type  of  a  coordinate  in  the  Normalized  Device  Coordinate  System 


-  NDC 

LEVEL  ma 

package  NDC  is  new  GKS_COORDINATE_SYSTEM  (NDC_TYPE); 


—  Defines  the  Normalized  Device  Coordinate  System. 

-  NEW_FRAME_NECESSARY 

LEVEL  Oa 

type  NEW_FRAME_NECESSARY  is  (NO, YES); 


—  Indicates  whether  a  new  frame  action  is  necessary  at  update. 

-  OPERATING_MODE 

LEVEL  mb 

type  OPERATING_MODE  is  (REQUEST_MODE,  S  AMPLE  JTODE,  EVENT  JVIODE); 
—  Defines  the  operating  modes  of  an  input  device. 


-  OPERATING  J>T ATE 

LEVEL  ma 

type  OPERATING_STATE  is  (GKCL,  GKOP,  WSOP,  WSAC,  SGOP); 


—  Defines  the  five  GKS  operating  states. 

-  PATTERNJNDEX 

LEVEL  Oa 

subtype  PATTERNJNDEX  is  STYLEJNDEX  range  L.STYLEJNDEX'LAST; 
-  Defines  the  range  of  pattern  table  indices. 


-  PATTERN JNDICES 

LEVEL  Oa 

package  PATTERN  INDICES  is 

new  GKS_LIST  UTILITIES  (PATTERNJNDEX); 

—  Provides  for  lists  of  pattern  table  indices. 

Page  125 


Appendix  A 


Compiled  GKS  Specification 


-  PICKJD 

LEVEL  lb 

type  PICKJD  is  new  POSITIVE; 

-  Defines  the  range  of  pick  identifiers  available  on  an  implementation 


-  PICKJDS 

LEVEL  lb 

package  PICKJDS  is  new  GKS_LIST_UTILITfES  (PICKJD); 


—  Provides  for  lists  of  pick  identifiers. 

-  PICK_PROMPT_ECHO_TYPE 

LEVEL  lb 

type  PICK_PROMPT_ECHO_TYPE  is  new  INTEGER; 


—  Defines  the  pick  prompt  and  echo  type. 

-  PICK_PROMPT_ECHO_TYPES 

LEVEL  lb 

package  PICK  PROMPT  ECHO  TYPES  is  new  GKS  LIST  UTILITIES 
(PIC  K_PROMPT_EC  HO_T  YPE); 

—  Provides  for  lists  of  pick  prompt  and  echo  types. 


-  PICK_REQUEST_STATUS 

LEVEL  lb 

type  PICK_REQUEST_STATUS  is  (OK,  NOPICK,  NONE); 


—  Defines  the  status  of  a  pick  input  operation  for  the  request  function. 

-  PICK JiTATUS 

LEVEL  lb 

subtype  PICK_STATUS  is  PICK  JtEQUEST_STATUS  range  OK.. NOPICK; 

—  Defines  the  status  of  a  pick  input  operation  for  the  sample,  get,  and  inquiry  functions. 


-  PIXEL  J20L0UR_MATRIX 

LEVEL  Oa 

type  PIXEL J20L0UR_MATRIX  is  array  (POSITIVE  range  <  >, 

POSITIVE  range  <  >)  of  PIXEL JEOLOURJNDEX; 

—  Provides  for  matrices  of  pixel  colours. 


-  POLYLINE JNDICES 

LEVEL  Oa 

package  POLYLINE  JNDICES  is 

new  GKS_LIST_UTILITIES  (POLYLINE JNDEX); 

-  Provides  for  lists  of  polyline  indices. 
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-  POLYMARKERJNDICES 


LEVEL  Oa 


package  POLYMARKERJNDICES  is 

new  GKS_LIST_UTILITIES  (POLYMARKER  JNDEX); 


-  Provides  for  lists  of  polymarker  indices. 


-  RADIANS 


LEVEL  la 


type  RADIANS  is  digits  PRECISION; 

-  Values  used  in  performing  segment  transformations  (rotation  angle).  Positive  indicates 

—  an  anticlockwise  direction. 


-  RANGE_OF_EXP AN S  ION S 


LEVEL  ma 


type  RANGE_OF_EXPANSIONS  is 
record 

MLN  :  CHAR_EXPANSION; 

MAX  :  CHAR_EXPANSION; 

end  record; 

-  Provides  a  range  of  character  expansion  factors. 

-  RASTER JJNITS  LEVEL  ma 

type  RASTER_UNITS  is  new  POSITIVE; 

-  Defines  the  range  of  raster  units. 

-  RASTER JJNIT_SIZE  LEVEL  ma 

type  RASTER_UNIT_SIZE  is 
record 

X  :  RASTER  JJNITS; 

Y  :  R A  S  TER_UNI  T S ; 
end  record; 

-  Defines  the  size  of  a  display  screen  in  raster  units  on  a  raster  device. 

-  REGENERATIONJMODE  LEVEL  Oa 

type  REGENERATION JdODE  15  (SUPPRESSED,  ALLOWED); 

--  Indicates  whether  implicit  regeneration  of  the  display  is  suppressed  or  allowed. 

-  RELATIVE  PRIORITY  LEVEL  ma  . 

type  RELATIVE  J7RIORITY  is  f HIGHER,  LOWER); 

--  Indicates  the  relative  priority  between  two  normalization  transformations. 
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-  RETURN_ V ALUE_T YPE  LEVEL  Oa 

type  RETURN  JVALUE_TYPE  is  (SET,  REALIZED); 

-  Indicates  whether  the  returned  values  should  be  as  they  were  set  by  the  program  or  as 

-  they  were  actually  realized  on  the  device. 

-  SEGMENT_DETECTABILITY  LEVEL  la 

type  SEGMENT  JDETECTABILITY  is  (UNDETECTABLE,  DETECTABLE); 

-  Indicates  whether  a  segment  is  detectable  or  not. 

-  SEGMENT_HIGHLIGHTING  LEVEL  la 

type  SEGMENT_HIGHLIGHTING  is  (NORMAL,  HIGHLIGHTED); 

-  Indicates  whether  a  segment  is  highlighted  or  not. 

-  SEGMENT_NAME  LEVEL  la 

type  SEGMENT_NAME  is  new  POSITIVE; 

-  Defines  the  range  of  segment  names. 

-  SEGMENT_NAMES  LEVEL  la 

package  SEGMENT_NAMES  is  new  GKS_LIST_UTILITIES  (SEGMENT_NAME); 

-  Provides  for  lists  of  segment  names. 

-  SEGMENT_PRIORITY  LEVEL  la 

type  SEGMENT_PRIORITY  is  digits  PRECISION  range  0.0..  1.0; 

-  Defines  the  priority  of  a  segment. 

-  SEGMENT_VISIBILITY  LEVEL  la 

type  SEGMENT_VISIBILITY  is  (VISIBLE,  INVISIBLE); 

-  Indicates  whether  a  segment  is  visible  or  not. 

-  STRING_PROMPTJECHO_TYPE  LEVEL  mb 

type  STRING_PROMPT_ECHO_TYPE  is  new  INTEGER; 

-  Defines  the  siring  prompt  and  echo  types. 

-  STRING_PROMPT_ECHO_TYPES  LEVEL  mb 

package  STRING_PROMPT_ECHO_TYPES  is 

new  GKS_LIST_UTILITIES  (STRING_PROMPT_ECHO_TYPE); 

-  Provides  for  lists  of  siring  prompt  and  echo  types. 
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-  STROKE_PROMPT,ECHO,TYPE  LEVEL  mb 

type  STROKE_PROMPT_ECHO_TYPE  is  new  INTEGER; 

-  Defines  the  stroke  prompt  and  echo  types. 

-  STROKE_PROMPT_ECHO_TYPES  LEVEL  mb 

package  STROKE_PROMPT_ECHO_TYPES  is 

new  GKS_LIST_UTILITIES  (STROKE_PROMPT_ECHO_TYPE); 

-  Provides  for  lists  of  stroke  prompt  and  echo  types. 

-  VERTICAL_ ALIGNMENT  LEVEL  ma 

type  VERTICAL, ALIGNMENT  is  (NORMAL,  TOP,  CAP,  HALF,  BASE,  BOTTOM); 

-  The  alignment  of  the  text  extent  parallelogram  with  respect  to  the  vertical  positioning  of 

-  the  text. 

-  TEXT_ALIGNMENT  LEVEL  ma 

type  TEXT_ALIGNMENT  is 
record 

HORIZONTAL  :  HORIZONT AL_ALIGNMENT ; 

VERTICAL  :  VERTICAL, ALIGNMENT; 

end  record; 

-  The  type  of  the  attribute  controlling  the  positioning  of  the  text  extent  parallelogram 

-  in  relation  to  the  text  position,  having  horizontal  and  vertical  components  as 

-  defined  above. 


-  WC_TYPE  LEVEL  m: 

type  WC_TYPE  is  digits  PRECISION; 

-  Defines  the  range  of  accuracy  for  World  Coordinate  types. 

-  WC  LEVEL  ma 


package  WC  is  new  GKS_COORDINATE_SYSTEM  (WC_TYPE); 

—  Defines  the  World  Coordinate  System. 

-  TEXT_EXTENT,PARALLELOGRAM  LEVEL  ma 


type  TEXT_EXTENT_PARALLELOGRAM  is 
record 


LOWER_LEFT 
LOWER_RIGHT 
UPPER_RIGHT 
UPPER_LEFT 
end  record; 


WC. POINT; 
WC. POINT; 
WC. POINT; 
WC. POINT; 


—  Defines  the  comer  points  of  the  text  extent  parallelogram  with  respect  to  the 

—  vertical  positioning  of  the  text. 
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-  TEXT_FONT 

type  TEXT_FONT  is  new  INTEGER; 

-  Defines  the  types  of  fonts  provided  by  the  implementation. 

-  TEXT  JPRECIS  ION 

type  TEXT_PRECISION  is  (STRING_PRECISION, 

CHAR_PRECISION, 

STROKE_PRECISION); 

--  The  precision  with  which  text  appears. 

-  TEXT_FONT_PRECISION 

type  TEXT_FONT_PRECIS  ION  is 
record 

FONT  :  TEXT_FONT; 

PRECISION  :  TEXT_PRECISION; 

end  record; 

-  This  type  defines  a  record  describing  the  text  font  and  precision  aspect. 

-  TEXT  JDNTPRECIS  IONS 

package  TEXT_FONT_PRECISIONS  is 

new  GKSJLISTJJTILITIES  (TEXT_FONT_PRECISION); 

-  Provides  for  lists  of  text  font  and  precision  pairs. 

-  TEXTJNDEX 

type  TEXTJNDEX  is  new  POSITIVE; 

-  Defines  the  range  of  text  bundle  table  indices. 

-  TEXTJNDICES 

package  TEXTJNDICES  is  new  GKS  JJSTJJTILITIES  (TEXTJNDEX); 

-  Provides  for  lists  of  text  indices. 

-  TEXT_PATH 

type  TEXT_PATH  is  (RIGHT,  LEFT,  UP,  DOWN); 

-  The  direction  taken  by  a  text  string. 


LEVEL  ma 


LEVEL  ma 


LEVEL  ma 


LEVEL  ma 


LEVEL  Oa 


LEVEL  Oa 


LEVEL  ma 
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-  TRANSFORMATION_FACTOR 


LEVEL  la 


type  TRANSFORMATION_FACTOR  is 
record 

X  :  NDC_TYPE; 

Y  :  NDC_TYPE; 
end  record; 

--  Scale  factors  used  in  building  transformation  matrices  for  performing  segment 

-  transformations. 

-  TRANSFORMATION_MATRIX  LEVEL  la 

type  TRANSFORMATION_MATRIX  is  array  (1..2,  1..3)  of  NDC_TYPE; 

-  For  segment  transformations  mapping  within  NDC  space. 

-  TRANSFORM ATION_NUMBER  LEVEL  ma 

type  TRANSFORMATION_NUMBER  is  new  NATURAL; 

-  A  normalization  transformation  number. 

-  POSITIVE_TRANSFORMATION_NUMBER  LEVEL  ma 

subtype  POSITIVE_TRANSFORMATION_NUMBER  is 
TRANSFORMATION_NUMBER_ 
range  1  ..  TRANSFORM ATION_NUMBER'LAST; 

-  A  normaliztion  transformation  number  corresponding  to  a  settable  transformation. 

-  TRANSFORMATION_PRIORITY_ARRAY  LEVEL  ma 

type  TRANSFORMATION_PRIORITY_ARRAY  is  array  (POSITIVE  range  <  >) 
of  TRANSFORMATION_NUMBER; 

-  Type  to  store  transformation  numbers. 


-  TRANSFORMATION_PRIORITYJLIST 


LEVEL  ma 


type  TRANSFORMATION_PRIOR1TY_LIST(LENGTH:SMALL_NATURAL:=0)  is 


record 


CONTENTS  :  TRANSFORMATION_PRIORITY_ARRAY  (L. LENGTH); 
end  record; 

—  Provides  for  a  prioritised  list  of  transformation  numbers. 


-  UPDATE_REGENERATION_FLAG 


LEVEL  Oa 


type  UPDATE_REGENERATION_FLAG  is  (PERFORM, POSTPONE); 


-  Rag  indicating  regeneration  action  on  display. 
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-  UPD ATE_S  T ATE  LEVEL  Oa 

type  UPDATE_STATE  is  (NOTPENDING,  PENDING); 

-  Indicates  whether  or  not  a  workstation  transformation  change  has  been  requested 

-  and  not  yet  provided. 

-  V ALUATOR_INPUT_V ALUE  LEVEL  mb 

type  V ALUATOR_INPUT_V ALUE  is  digits  PRECISION; 

-  Defines  the  range  of  accuracy  of  input  values  on  an  implementation. 

-  V ALU ATOR_PROMPT_EC HO_T YPE  LEVEL  mb 

type  V ALU ATOR_PROMPT_ECHO_T  YPE  is  new  INTEGER; 

-  Defines  the  possible  range  of  valuator  prompt  and  echo  types. 

-  V ALUATOR_PROMPT_ECHO_TYPES  LEVEL  mb 

package  VALUATOR_PROMPTJECHO_TYPES  is 

new  GKS_LIST_UTILITIES  (VALUATOR_PROMPT_ECHO_TYPE); 

-  Provides  for  lists  of  valuator  prompt  and  echo  types. 

-  VARIABLE_COLOUR_MATRIX  LEVEL  ma 

type  V ARI ABLE_COLOUR_MATRIX  (DX  :  SMALL_NATURAL  :=  0; 

DY  :  SMALL_NATURAL  :=  0)  is 

record 

MATRIX  :  COLOUR_MATRIX  (1..DX,  1..DY); 
end  record; 

-  Provides  for  variable  sized  matrices  containing  colour  indices  corresponding  to 

-  a  cell  array  or  pattern  array. 

-  VARIABLE_CONNECTIONJD  LEVEL  ma 

type  VARIABLE_CONNECTION_ID 

(LENGTH  :  STRING_SMALL_NATURAL  :=  0)  is 
record 

CONNECT  :  STRING  (L. LENGTH); 
end  record; 

--  Defines  a  variable  length  connection  identifier  for 

-  INQ_WS_CONNECTION_AND_TYPE 
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-  VARIABLE_PIXEL_COLOUR_MATRIX  LEVEL  Oa 

type  V ARI ABLE_PIXEL_COLOUR_M ATRIX  (DX  :  SMALL_NATURAL  :=  0; 

DY  :  SMALL_NATURAL  :=  0)  is 

record 

MATRIX  :  PIXEL_COLOUR_MATRIX  (I..DX,  1..DY); 
end  record; 

-  Provides  for  variable  sized  matrices  of  pixel  colours. 

-  WS_CATEGORY  LEVEL  0a 

type  WS_CATEGORY  is  (OUTPUT,  INPUT,  OUTIN,  WISS,  MO,  Ml); 

-  Type  for  GKS  workstation  categories. 

-  WS_ID  LEVEL  ma 

type  WS_ID  is  new  POSITIVE; 

-  Defines  the  range  of  workstation  identifiers. 

-  WS_IDS  LEVEL  ma 

package  WSJDS  is  new  GKS_LIST_UTILITIES  (WS _ID); 

-  Provides  for  lists  of  workstation  identifiers. 

-  WS_STATES  LEVEL  0a 

type  WS_STATE  is  (INACTIVE,  ACTIVE); 

-  The  state  of  a  workstation. 

-  WS_TYPES  LEVEL  ma 

type  WS_TYPE  is  new  POSITIVE; 

-  Range  of  values  corresponding  to  valid  workstation  types.  Constants  specifying  names 

-  for  the  various  types  of  workstations  should  be  provided  by  an  implementation. 

-  WS_TYPES  LEVEL  ma 

package  WS_TYPES  is  new  GKS_LIST_UTILITIES  (WS_TYPE); 

-  Provides  for  lists  of  workstation  types. 
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-  INDIVIDUAL- ATTRIBUTED ALUES 


LEVEL  ma 


type  INDIVIDUAL- ATTRIBUTE-VALUES  is 
record 


TYPE-OFJJNE 

WIDTH 

LINE-COLOUR 

TYPE-OF-MARKER 

SIZE 

MARKER-COLOUR 

FONT-PRECISION 

EXPANSION 

SPACING 

TEXT-COLOUR 

INTERIOR 

STYLE 

FILL- AREA-COLOUR 
ASF 


LINETYPE; 

LINEWIDTH; 

COLOUR-INDEX; 

MARKER-TYPE; 

MARKER-SIZE; 

COLOUR-INDEX; 

TEXT-FONT-PRECISION; 

CHAR-EXPANSION; 

CHAR-SPACING; 

COLOUR-INDEX; 

INTERIOR-STYLE; 

STYLE-INDEX; 

COLOUR-INDEX; 

ASF-LIST; 


end  record; 


-  A  record  containing  all  of  the  current  individual  attributes  for  the  procedure 


-  INQ-CURRENT-INDIVIDUAL- ATTRIBUTE-VALUES . 


-  PRIMITIVE-ATTRIBUTE- VALUES 

type  PRIMITIVE- ATTRIBUTE- VALUES  is 
record 

INDEX-POLYLINE 

INDEX-POLYMARKER 

INDEX-TEXT 

CHAR-HEIGHT 

CHAR-UP-VECTOR 

CHAR-WIDTH 

CHAR-BASE-VECTOR 

PATH 

ALIGNMENT 
INDEX_FILL-AREA 
PATTERN-WIDTH- VECTOR 
PATTERN_HEIGHT-VECTOR 
PATTERN-REFERENCE_POINT 
end  record; 


LEVEL  ma 


POLYLINE-INDEX; 

POLYMARKER-INDEX; 

TEXT-INDEX; 

WC. MAGNITUDE; 

WC. VECTOR; 

WC. MAGNITUDE; 

WC. VECTOR; 
TEXT-PATH; 
TEXT-ALIGNMENT; 
FILL_AREAJNDEX; 
WC. VECTOR; 

WC. VECTOR; 
WC.POINT; 


-  A  record  containing  all  of  the  current  primitive  attributes  for  the  procedure 

-  INQ-CURRENT-PRIMITIVE- ATTRIBUTE-VALUES. 

The  following  defines  the  predefined  exception  GKS_ERROR  defined  in  3.2.3. 

GKS-ERROR  :  exception; 

-  Following  are  the  declarations  of  implementation  dependent  constants  for  defining  GKS/Ada 
--  types.  Some  of  the  constants  are  used  for  defining  default  parameter  values  for  GKS 

-  procedures. 
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—  The  following  constants  define  the  GKS  standard  line  types: 


SOLID  LINE 

:  constant  LINETYPE 

:=  1 

DASHED_LINE 

:  constant  LINETYPE 

:=  2 

DOTTED  LINE 

:  constant  LINETYPE 

:=  3 

DASHED  DOTTEDJLINE 

:  constant  LINETYPE 

:=  4 

—  The  following  constants  define  the  GKS  standard  marker  types: 


DOT  MARKER 

constant  MARKER_TYPE 

=  1; 

PLUS  MARKER 

constant  MARKER_TYPE 

-  2; 

STAR  MARKER 

constant  MARKERTYPE 

=  3; 

ZERO  MARKER 

constant  MARKER_TYPE 

=  4; 

X  MARKER 

constant  MARKER  TYPE 

=  5; 

—  The  following  constants  define  the  prompt  and  echo  types  supported  by  GKS: 

DEFAULT  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  1 

CROSS  HAIR  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

_  2 

TRACKING_CROSS_LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  3 

RUBBER  BAND  LINE  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  4 

RECTANGLE  LOCATOR 

constant  LOCATOR  PROMPT  ECHO  TYPE 

=  5 

DIGITAL_LOCATOR 

constant  LOCATOR_PROMPT_ECHO_TYPE 

=  6 

DEFAULT  STROKE 

constant  STROKE_PROMPT_ECHO_TYPE 

=  1 

DIGITAL  STROKE 

constant  STROKE_PROMPT_ECHO_TYPE 

=  2 

MARKER  STROKE 

constant  STROKE  PROMPT  ECHO  TYPE 

=  3 

LINE_STROKE 

constant  STROKE_PROMPT_ECHO_TYPE 

=  4 

DEFAULT  VALUATOR 

constant  VALUATOR  PROMPT  ECHO  TYPE 

=  1; 

GRAPHICAL  VALUATOR 

constant  VALUATOR  PROMPT  ECHO  TYPE 

=  2; 

DIGIT  AL_VALUATOR 

constant  V ALUATOR_PROMPT_ECHO_T YPE 

=  3; 

DEFAULT  CHOICE 

constant  CHOICE  PROMPT  ECHO  TYPE 

=  1 

PROMPT  ECHO  CHOICE 

constant  CHOICE  PROMPT  ECHO  TYPE 

=  2 

STRING  PROMPT  CHOICE 

constant  CHOICE  PROMPT  ECHO  TYPE 

-  3 

STRING  INPUT  CHOICE 

constant  CHOICE_PROMPT_ECHO_TYPE 

=  4 

SEGMENT_CHOICE 

constant  CHOICE_PROMPT_ECHO_TYPE 

=  5 

DEFAULT_STRING 

constant  STRING_PROMPT_ECHO_TYPE 

=  1; 

DEFAULT  PICK 

constant  PICK  PROMPT  ECHO  TYPE 

=  1; 

GROUP  HIGHLIGHT  PICK 

constant  PICK  PROMPT  ECHO  TYPE 

-  2; 

SEGMENT  HIGHLIGHT  PICK 

constant  PICK  PROMPT  ECHO  TYPE 

=  3; 

—  The  following  constants  are  used  for  defining  default  parameter  value  for  GKS  procedures: 

DEFAULT_MEMORY_UNITS  :  constant  :=  0; 

DEFAULT_ERROR_FILE  :  constant  STRING  :=  "  " 


end  GKS_TYPES; 
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-  THE  GKS  PACKAGE 

with  GKS_TYPES; 
use  GKS_TYPES; 

package  GKS  is 

-  The  package  GKS  contains  all  of  the  procedures  that  are  required  to  implement  GKS  level  2c. 

-  The  following  data  types  are  the  GKS  private  types  and  are  included  in  package  GKS  for  ease 

-  of  manipulation. 

-  CHOICE_DATA_RECORD  LEVEL  Ob 

type  CHOICE_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

CHOICE_PROMPT_ECHO_TYPE  :=  DEFAULT_CHOICE)  is  private; 

-  Defines  a  record  for  initialising  choice  input. 

-  GKSM_DATA_RECORD  LEVEL  mb 

type  GKS M_DATA_RECORD  (TYPE_OF_ITEM  :  GKSM_ITEM_TYPE  :=  0; 

LENGTH  :  NATURAL  ;=  0)  is  private; 

-  A  data  record  for  GKSM  metafiles. 

-  LOCATOR_D AT A_RECOR D  LEVEL  Ob 

type  LOCATOR_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

LOCATOR_PROMPT_ECHO_TYPE  :=  DEFAULT_LOCATOR)  is  private; 

-  Defines  a  record  for  initialising  locator  input. 

-  PIC K_D AT A_RECOR D  LEVEL  lb 

type  PICK_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

PICK_PROMPT_ECHO_TYPE  :=  DEFAULT_PICK)  is  private; 

--  Defines  a  record  for  initialising  pick  input. 

-  STRING_DATA_RECORD  LEVEL  Ob 

type  STRING_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

STRING_PROMPT_ECHO_TYPE  :=  DEFAULT_STRING)  is  private; 

—  Defines  a  record  for  initialising  string  input. 

-  STROKE_DATA_RECORD  LEVEL  Ob 

type  STROKE_DATA_RECORD  (PROMPT  JECHO_TYPE  : 

STROKE_PROMPT_ECHO_TYPE  :=  DEFAULT_STROKE)  is  private; 

--  Defines  a  record  for  initialising  stroke  input. 
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-  V ALU ATOR_D AT ARECOR D  LEVEL  Ob 

type  VALUATOR_DATA_RECORD  (PROMPT_ECHO_TYPE  : 

VALUATOR_PROMPT_ECHO_TYPE  :=  DEFAULT_VALUATOR)  is  private; 

—  Defines  a  record  for  initialising  valuator  input. 

--  Subprograms  for  Manipulating  Input  Data  Records 

-  The  procedures  and  functions  defined  below  are  those  necessary  for  constructing  and 

-  inquiring  the  input  data  records,  declared  as  private  types  in  this  package  for  each  of 

-  the  six  classes  of  input  devices  defined  by  the  GKS  specification  the  Locator, 

-  Stroke,  Valuator,  Choice,  Pick,  and  String  logical  devices.  The  procedures  listed  here 

-  are  used  to  construct  the  data  records  for  each  of  the  prompt  and  echo  types  of  a  device 

-  class  to  be  used  for  initializing  a  particular  input  device.  Assorted  functions  are  also 

-  provided  so  that  an  application  of  GKS/Ada  may  examine  the  parts  of  the  data  record 

-  which  are  defined  by  GKS.  Any  implementation  specific  information  in  the  data 

-  records  is  kept  private  and  unavailable.  The  exception  GKS_ERROR  (class 

--  LANGUAGE_BfNDlNG_ERROR)  is  raised  if  any  of  the  below  procedures  are  used 

-  incorrectly.  That  is,  if  an  illegal  prompt  and  echo  type  is  used  then  error  number  2500  is 

-  logged  onto  the  error  file. 

-  Locator  Data  Record  Operations. 

procedure  BlIILD_LOCATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  LOCATOR_PROMPT_ECHO_TYPE; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 

-  Constructs  and  returns  a  locator  data  record  for  locator  prompt  and  echo 
--  types  1,  2,  3,  and  6. 

procedure  BUILD_LOCATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  LOCATOR_PROMPT_ECHO_TYPE; 

CONTENTS  :  in  LINE_DATA; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 

--  Constructs  and  returns  a  locator  data  record  for  locator  prompt  and  echo 
--  type  5  when  its  attributes  are  specified  by  Polyline  attributes. 

procedure  BUILD_LOCATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  LOCATOR_PROMPT_ECHO_TYPE; 

CONTENTS  :  in  FILL_AREA_DATA; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 

-  Constructs  and  returns  a  locator  data  record  for  locator  prompt  and  echo 

-  type  5  when  its  attributes  are  specified  by  Fill  Area  attributes. 

function  ATTRIBUTE_FLAG 

(DATA_RECORD  :  in  LOC ATOR_D ATA_RECORD ) 
return  ATTRIBUTES_FLAG; 

-  Returns  the  attribute  flag  CURRENT  or  SPECIFIED  stored  in  the 

-  data  record  for  the  prompt  and  echo  types  4  and  5. 
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function  LOCATOR.. ATTRIBUTES _USED 

(DATA_RECORD  :  in  LOC ATOR_D AT A_RECORD) 
return  ATTRIBUTES_USED_TYPE; 

-  Returns  which  attribute  set,  either  Polyline  or  Fill  Area,  stored  in  the  data  record 

-  for  prompt  and  echo  types  4  and  5. 

function  LINE_ATTRIBUTES 

(DATA_RECORD  :  in  LOCATOR_DATA_RECORD) 
return  LINE_DATA; 

-  Returns  the  Polyline  attribute  information  stored  in  the  data  record  for  prompt  and  echo  types  4  or  5. 

function  FILL_AREA_ATTRIBUTES 

(DATAJRECORD  :  in  LOCATOR_DATA_RECORD) 
return  FILL_AREA_DATA; 

-  Returns  the  Fill  Area  attribute  information  stored  in  the  data  record  for  prompt  and  echo  type  5. 


-  Stroke  Data  Record  Operations. 


procedure  BUELD_STROKE_DATA_RECORD 


(PROMPT_ECHO_TYPE 

BUFFER_SIZE 

POSITION 

INTERVAL 

TIME 

DATA  RECORD 


in  STROKE_PROMPT_ECHO_TYPE; 
in  POSITIVE; 
in  POSITIVE; 
in  WC.SIZE; 
in  DURATION; 

out  STROKE_DATA_RECORD); 


-  Constructs  and  returns  a  stroke  data  record  for  stroke  prompt  and  echo  types  1  and  2. 


procedure  BUILD_STROKE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  STROKE_PROMPT_ECHO_TYPE; 

:  in  POSITIVE; 

:  in  POSITIVE; 

:  in  WC.SIZE; 

:  in  DURATION; 

:  in  MARKER_DATA; 

:  out  STROKE_DATA_RECORD); 


BUFFER_SIZE 
POSITION 
INTERVAL 
TIME 

CONTENTS 
DATA  RECORD 


-  Constructs  and  returns  a  stroke  data  record  for  stroke  prompt  and  echo  type  3. 


procedure  BUILD_STROKE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  STROKE_PROMPT_ECHO_TYPE; 

BUFFER_SIZE  :  in  POSITIVE; 

POSITION  :  in  POSITIVE; 

INTERVAL  :  in  WC.SIZE; 

TIME  :  in  DURATION; 

CONTENTS  :  in  LINE_DATA; 

DATA_RECORD  :  out  STROKE_DATA_RECORD); 

-  Constructs  and  returns  a  stroke  data  record  for  stroke  prompt  and  echo  type  4. 
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function  BUFFER_SIZE 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  POSITIVE; 

—  Returns  the  size  of  the  input  stroke  buffer  stored  in  the  data  record  for  prompt  and 

—  echo  types  1,  2,  3  and  4. 

function  POSITION 

(DAT A_RECORD  :  in  STROKE_DATA_RECORD) 
return  POSITIVE; 

—  Returns  the  editing  position  within  the  input  stroke  buffer  stored  in  the  data  record 

—  for  prompt  and  echo  types  1,  2,  3  and  4. 

function  INTERVAL 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  WC.SIZE; 

—  Returns  the  interval  value  stored  the  stroke  buffer  stored  data  record  for  prompt  and 
--  echo  types  1,  2,  3  and  4. 

function  TIME 

(DATAJRECORD  :  in  STROKE_DATA_RECORD) 
return  DURATION; 

—  Returns  the  measuring  time  for  sampling  stroke  input  stored  in  the  data  record  for  prompt  and 

—  echo  types  1,  2,  3  and  4. 

function  MARKER_ ATTRIBUTES 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  MARKER_DATA; 

—  Returns  the  Polymarker  attributes  used  to  echo  the  stroke  input  stored  in  the  data  record 

—  for  prompt  and  echo  type  3. 

function  LINE_ATTRIBUTES 

(DATA_RECORD  :  in  STROKE_DATA_RECORD) 
return  LINE_DATA; 

—  Returns  the  Polyline  attributes  used  to  echo  the  stroke  input  stored  in  the  data  record  for 

—  prompt  and  echo  type  4. 

—  Valuator  Data  Record  Operations. 

procedure  BUILD_VALUATOR_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  V  ALU  AT  OR_PR  O  M  PT_EC  HO_T  Y  PE ; 

LO W_V ALUE  :  in  VALUATOR _INPUT_VALUE; 

HIGH_VALUE  :  in  VALUATOR _INPUT_V ALUE; 

DATA_RECORD  :  out  VALUATOR_DATA_RECORD); 

—  Constructs  and  returns  a  valuator  data  record  for  the  valuator  prompt  and  echo  types  1 , 2,  and  3. 
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function  HIGHJVALUE 

(DATA_RECORD  :  in  VALUATOR_DATA_RECORD) 
return  VALUATOR_INPUT_VALUE; 

—  Returns  the  high  value  for  the  valuator  stored  in  the  valuator  data  record  for 

—  prompt  and  echo  types  1,  2,  and  3. 


function  LOW_VALUE 

(DAT A_RECORD  :  in  VALUATOR_DATA_RECORD) 
return  VALUATOR_INPUT_VALUE; 

—  Returns  the  low  value  for  the  valuator  stored  in  Lhe  valuator  data  record  for 
--  prompt  and  echo  types  1,  2,  and  3. 

—  Choice  Data  Record  Operations. 


procedure  BUlLD_CHOICE_DATA_RECORD 

(PROMPT  JECHO_TYPE  :  in  CHOICE  J>ROMPT_ECHO_TYPE; 
DATA_RECORD  :  out  CHOICE_DATA_RECORD); 

—  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  type  1. 


procedure  BUILD_CHOICE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  CHOICE_PROMPT_ECHO_TYPE; 
ARRAY_OF_PROMPTS  :  in  CHOICE  J>ROMPTSJHST_OF; 
DATA_RECORD  :  out  CHOICE_DATA_RECORD); 

—  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  type  2. 


procedure  BUILD_CHOICE_DATA_RECORD 

(PROMPT  J2CHO_TYPE  :  in  CHOICE  J>ROMPT_ECHO_TYPE; 

ARRAY  JDF_STRINGS  :  in  CHOICE_PROMPT_STRING_LIST; 

DAT A_RECORD  :  out  CHOICE  J)  AT AJIECORD); 

-  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  types  3  and  4. 

procedure  BUILD_CHOICE_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  CHOICE  J>ROMPT_ECHO_TYPE; 

SEGMENT  :  in  SEGMENT JIAME; 

LIST_OF_PICK_IDS  :  in  PICK  JDS. LIST_OF; 

DATA_RECORD  :  out  CHOICE_DATA_RECORD); 

--  Constructs  and  returns  a  choice  data  record  for  choice  prompt  and  echo  types  5. 

function  ARRAY JDFJ'ROMPTS 

(DATA  RECORD  :  in  CHOICE_DATA_RECORD) 
return  CHOICE  J>ROMPTS. LIST  JDF; 


—  Returns  the  array  of  prompts  stored  in  the  choice  data  record  for 

—  prompt  and  echo  type  2. 

function  ARRAY_OF_STRINGS 

(DATA_RECORD  :  in  C H01CE_D AT A_RECOR D) 
return  CHOICE_PROMPT_STRING_LIST; 


Returns  the  array  of  prompt  strings  stored  in  the  choice  data  record  for  prompt  and  echo  types  3  and  4. 
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function  SEGMENT 

(DATA_RECORD  :  in  CHOICE_DATA_RECORD) 
return  SEGMENT_NAME; 

—  Returns  the  segment  name  stored  in  the  choice  data  record  for  prompt  and  echo  type  5. 

function  LIST_OF_PICK_IDS 

(DATA_RECORD  :  in  CHOICE_DATA_RECORD) 
return  PICK_IDS.LIST_OF; 

—  Returns  the  list  of  pick  id's  stored  in  the  choice  data  record  for  prompt  and  echo  type  5. 

—  Pick  Data  Record  Operation. 

procedure  BUILD_PICK_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  PICK_PROMPT_ECHO_TYPE; 

DATA_RECORD  :  out  PICK_DATA_RECORD); 

--  Construct  and  returns  a  pick  data  record. 

—  String  Data  Record  Operations. 

procedure  BUILD_STRING_DATA_RECORD 

(PROMPT_ECHO_TYPE  :  in  STRING_PROMPT_ECHO_TYPE; 

INPUT_BUFFER_SIZE  :  in  POSITIVE; 

INITIAL_CURSOR_POSITION  :  in  NATURAL; 

DATA_RECORD  :  out  STRING_DATA_RECORD); 

—  Construct  and  returns  a  string  data  record. 

function  INPUT_BUFFER_SIZE 

(DAT A_R ECOR D  :  in  STRING_DATA_RECORD) 
return  NATURAL; 

—  Returns  the  size  of  the  buffer  used  for  storing  string  input  stored  in  the  string  data  record. 

function  INITIAL_CURSOR_POSITION 

(DAT A_RECOR D  :  in  STRING_DATA_RECORD) 
return  NATURAL; 

—  Returns  the  initial  cursor  position  for  string  input  stored  in  the  string  data  record. 

--  GKS  procedures 


-  CONTROL  FUNCTIONS 


procedure  OPEN_GKS 
(ERROR_FILE 
AMOUNT_OF_MEMORY 


:  in  STRING  :=  DEFAULT_ERROR_FI  LE; 

:  in  NATURAL  :=  DEFAULT_MEMORY_UNITS); 
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procedure  OPEN_WS 

(WS  :  in  WS_ID; 

CONNECTION  :  in  STRING; 

TYPE_OF_WS  :  in  WS_TYPE); 

procedure  CLOSE_WS 
(WS  :  in  WS_ID); 

procedure  ACTIVATEJWS 
(WS  :  in  WS_ID); 

procedure  DEACTIVATE_WS 
(WS  :  in  WS_ID); 

procedure  CLEAR_WS 
(WS  :  in  WS_ID; 

FLAG  :  in  CONTROL_FLAG); 

procedure  REDRAW_ALL_SEGMENTS_ON_WS 
(WS  :  in  WS_ID); 

procedure  UPDATE_WS 

(WS  :  in  WS _ID; 

REGENERATION  :  in  UPDATE_REGENERATION_FLAG); 

procedure  SET_DEFERRAL_STATE 
(WS  :  in  WS_ID; 

DEFERRAL  :  in  DEFERRAL_MODE; 

REGENERATION  :  in  REGENERATION_MODE); 

procedure  MESSAGE 

(WS  :  in  WS_ID; 

CONTENTS  :  in  STRING); 

-  OCTPUT  FUNCTIONS 


procedure  POLYLINE 

(POINTS  : 

procedure  POLYMARKER 
(POINTS  : 

procedure  TEXT 

(POSITION  : 

CHAR_STRING  : 

procedure  FELL_AREA 
(POINTS  : 

procedure  CELL_ARRAY 
(CORNER_l_l 
CORNER_DX_DY 
CELLS 


in  WC.POINTARRAY); 


in  WC.POINT_ARRAY); 


in  WC. POINT; 
in  STRING); 


in  WC.POINT  ARRAY); 


:  in  WC. POINT; 

:  in  WC. POINT; 

:  in  COLOUR_MATRIX); 
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-  OUTPUT  ATTRIBUTE  FUNCTIONS 

procedure  SET_POLYLINEJNDEX 

(INDEX  :  in  POLYLINEJNDEX); 

procedure  SET_LINETYPE 

(TYPE_OF_LINE  :  in  LINETYPE); 

procedure  SET_LINEWIDTH_SCALE_FACTOR 
(WIDTH  :  in  LINEWIDTH); 

procedure  SET_POLYLINE_COLOUR_INDEX 

(LINE_COLOUR  :  in  COLOURJNDEX); 

procedure  SET_POLYMARKER_INDEX 

(INDEX  :  in  POLYMARKER  JNDEX); 

procedure  SET_MARKER_TYPE 

(TYPE_OF_MARKER  :  in  MARKER_TYPE); 

procedure  S  ET_M  AR  KER_S  IZE_S  C  ALE_F  ACT  OR 
(SIZE  :  in  MARKER_SIZE); 

procedure  SET_POLYMARKER_COLOUR_INDEX 
(MARKER_COLOUR  :  in  COLOURJNDEX); 

procedure  SET_TEXT_INDEX 

(INDEX  :  in  TEXTJNDEX); 

procedure  SET_TEXT_FONT_AND_PRECISION 

(FONT_PRECIS ION  :  in  TEXT_FONT_PRECISION); 

procedure  SET_CHAR_EXPANSION_FACTOR 

(EXPANSION  :  in  CHAR_EXPANSION); 

procedure  SET_CHAR_S  PACING 

(SPACING  :  in  CHAR_SPACING); 

procedure  SET_TEXT_COLOUR_INDEX 

(TEXT_COLOUR  :  in  COLOURJNDEX); 

procedure  SET_CHAR_HEIGHT 

(HEIGHT  :  in  WC. MAGNITUDE); 

procedure  SET_CHARJJP_  VECTOR 

(CHAR_UP_ VECTOR  :  in  WC.VECTOR); 

procedure  SET_TEXT_PATH 

(PATH  :  in  TEXT_PATH); 

procedure  SET_TEXT_ALIGNMENT 

(ALIGNMENT  ;  in  TEXTUAL IGNMENT); 

procedure  SET_FILL_AREAJNDEX 

(INDEX  :  in  FILL_AREAJNDEX); 
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procedure  SET_FILL_AREA_INTERIOR_STYLE 

(INTERIOR  :  in  INTERIOR_STYLE); 

procedure  SET_FILL_AREA_STYLE_INDEX 

(STYLE  :  in  STYLE JNDEX); 

procedure  SET_FILL_AREA_COLOUR_INDEX 

(FILL_AREA_COLOUR  :  in  COLOUR  JNDEX); 

procedure  SET_PATTERN_SIZE 

(SIZE  :  in  WC.SIZE); 

procedure  SET_PATTERN_REFERENCE_POINT 
(POINT  :  in  WC.POINT); 

procedure  SET_ASF 

(ASF  :  in  ASFJJST); 


procedure  SET_PICKJD 

(PICK  :  in  PICKJD); 


procedure  SETPOLYLINE 
(WS 
INDEX 

TYPE_OF_LINE 

WIDTH 

LINE_COLOUR 


REPRESENTATION 
:  in  WSJD; 

:  in  POLYLINE  JNDEX; 
:  in  LINETYPE; 

;  in  LINEWIDTH; 

;  in  COLOUR  JNDEX); 


procedure  SET_POLYMARKER_REPRESENTATION 
(WS  :  in  WSJD; 

INDEX  :  in  POLYMARKER  JNDEX; 

TYPE_OF_MARKER  :  in  MARKER_TYPE; 

SIZE  ;  in  MARKER_SIZE; 

MARKER_COLOUR  :  in  COLOUR  JNDEX); 


procedure  SET_TEXT_REPRES ENT ATION 


(WS 

INDEX 

FONT J’RECIS  ION 
EXPANSION 
SPACING 
TEXT  COLOUR 


:  in  WSJD; 

:  in  TEXT  JNDEX; 

:  in  TEXT_FONT_PRECISION; 
:  in  CHAR_EXPANSION; 

:  in  CHAR_SPACING; 

:  in  COLOUR  JNDEX); 


procedure  SET_FILL_AREA_REPRESENT  ATION 


(WS 

INDEX 

INTERIOR 

STYLE 

FILL  AREA  COLOUR 


:  in  WSJD; 

:  in  FILL  J^  RE  A  JNDEX; 
:  in  INTERIOR JSTYLE; 

:  in  STYLEJNDEX; 

:  in  COLOUR  JNDEX); 


procedure  SET_PATTERN_REPRESENT ATION 


(WS 

INDEX 

PATTERN 


in  WSJD; 

in  PATTERN  JNDEX; 
in  COLOUR  J4ATRIX); 
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procedure  SET_COLOUR_REPRESENTATION 
(WS  :  in  WS_ID; 

INDEX  :  in  COLOUR _INDEX; 

RGB_COLOUR  :  in  COLOUR_REPRESENTATION); 


-  TRANSFORMATION  FUNCTIONS 


procedure  SET_WINDOW 

(TRANSFORMATION  :  in  POSTIVE_TRANSFORMATION_NUMBER; 

WINDOW_LIMITS  :  in  WC.RECTANGLE_LIMITS); 


procedure  SETJVIEWPORT 

(TRANSFORMATION  :  in  POSITIVE_TRANSFORMATION_NUMBER; 

VIEWPORT_LIMITS  :  in  NDC.RECTANGLE_LIMITS); 


procedure  SET_VIEWPORT_INPUT_PRIORITY 

(TRANSFORMATION  :  in  TRANSFORMATION_NUMBER; 

REFERENCE_TRANSFORMATION  :  in  TRANSFORMATION_NUMBER; 
PRIORITY  :  in  RELATIVE_PRIORITY); 


procedure  SELECT_NORMALIZATION_TRANSFORMATION 

(TRANSFORMATION  :  in  TRANSFORM ATION_NUMBER); 


procedure  SET_CLIPPING_INDICATOR 

(CLIPPING  :  in  CLIPPING  .INDICATOR); 


procedure  SET_WS_ WINDOW 

(WS  :  in  WS _ID; 

WS_WINDOW_LIMITS  :  in  NDC.RECTANGLE_LIMITS); 

procedure  SET_WS_VIEWPORT 

(WS  :  in  WS_ID; 

WS_VIEWPORT_LIMITS  :  in  DC.RECTANGLE_LIMITS); 

-  SEGMENT  FUNCTIONS 

procedure  CREATESEGMENT 

(SEGMENT  :  in  SEGMENT_NAME); 

procedure  CLOSE_SEGMENT; 

procedure  RENAME_SEGMENT 

(OLD_NAME  :  in  SEGMENT_NAME; 

NEW_NAME  :  in  S EG MENT_N AME ) ; 

procedure  DELETE_SEGMENT 

(SEGMENT  :  in  SEGMENT_NAME); 

procedure  DELETE_S EG MENT_FROM_W S 
(WS  :  in  WS_ID; 

SEGMENT  :  in  SEGMENT_NAME); 

procedure  ASSOCIATE_SEGMENT_WITH_WS 
(WS  :  in  WSJD; 

SEGMENT  :  in  SEGMENT_NAME); 
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procedure  COPY_SEGMENT_TO_WS 
(WS  :  in  WS_ID; 

SEGMENT  :  in  SEGMENT_NAME); 

procedure  INSERT_SEGMENT 

(SEGMENT  :  in  SEGMENT_NAME; 

TRANSFORMATION  :  in  TRANSFORMATION_MATRIX); 

procedure  SET_SEGMENT_TRANSFORMATION 

(S  EG  MENT  :  i  n  S  EG  MENT_N AME ; 

TRANSFORMATION  :  in  TRANSFORMATION_MATRIX); 


procedure  SET_VISIBILITY 

(SEGMENT  :  in  SEGMENT_NAME; 

VISIBILITY  :  in  SEGMENTJVISIBILITY); 

procedure  S  ET_HIG  HLIG  HTIN  G 

(SEGMENT  :  in  SEGMENT_NAME; 

HIGHLIGHTING  :  in  SEGMENT_HIGHLIGHTING); 


procedure  S ET_S EG MENT_PRIOR IT Y 

(SEGMENT  :  in  SEGMENT_NAME; 

PRIORITY  :  in  SEGMENT_PRIORITY); 


procedure  SET_DETECTABILITY 

(SEGMENT  :  in  SEGMENT_NAME; 

DETECTABILITY  :  in  SEGMENT_DETECTABILITY); 


-  INPUT  FUNCTIONS 

procedure  INITIALISEJLOCATOR 
(WS 

DEVICE 

INITIAL_TRANSFORMATION 
INITIAL_POSITION 
ECHO_AREA 
DAT  A_RECORD 

procedure  INITIALISE_STROKE 
(WS 

DEVICE 

INITIAL_TRANSFORMATION 

INITIAL_STROKE 

ECHO_AREA 

DATA_RECORD 


:  in  WS _ID; 

:  in  LOCATOR_DEVICE_NUMBER; 

:  in  TRANSFORMATION_NUMBER; 
:  in  WC.POINT; 

:  in  DC.RECTANGLE_LIMITS; 

:  in  LOCATOR_DATA_RECORD); 


:  in  WS _ID; 

:  in  STROKE_DEVICE_NUMBER; 

:  in  TRANSFORM ATION_NUMBER; 
:  in  WC.POINT_ARRAY; 

:  in  DC.RECTANGLE_LIMITS; 

:  in  STROKE_DATA_RECORD); 


procedure  INITIALISER  ALUATOR 


(WS 

DEVICE 

INITI  AL_V  ALUE 
ECHO_AREA 
DATA  RECORD 


:  in  WS_ID; 

:  in  VALUATOR_DEVICE_NUMBER; 
:  in  VALUATOR _INPUT_VALUE; 

:  in  DC .RECTANGLE_LIMITS ; 

:  in  V ALU ATOR_D ATA_RECORD) ; 
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procedure  INITIALISE  CHOICE 
(WS  : 

DEVICE 

INITIAL  STATUS 
INITIAL  CHOICE  : 

ECHO_AREA 
DATA_RECORD 

in  WS_ID; 

in  CHOICE  DEVICE  NUMBER; 
in  CHOICE  STATUS; 
in  CHOICE  VALUE; 
in  DC.RECTANGLE_LIMITS; 
in  CHOICE_DATA_RECORD); 

procedure  INITIALISE  PICK 
(WS 

DEVICE 

INITIAL  STATUS 
INITIAL  SEGMENT 
INITIAL  PICK 

ECHO  AREA 
DATA_RECORD 

in  WS  ID; 

in  PICK  DEVICE  NUMBER; 
in  PICK  STATUS; 
in  SEGMENT  NAME; 
in  PICK  ID; 

in  DC.RECT ANGLE  LIMITS; 
in  PICK_DATA_RECORD); 

procedure  INITIALISE  STRING 
(WS 

DEVICE 

INITIAL  STRING 

ECHO  AREA 

DATA  RECORD 

in  WS  ID; 

in  STRING  DEVICE  NUMBER; 
in  INPUT  STRING; 
in  DC.RECTANGLE  LIMITS; 
in  STRING  DATA  RECORD); 

procedure  SET_LOCATOR_MODE 

(WS  :  in  WS_ID; 


DEVICE  : 

MODE 

SWITCH 

in  LOCATOR  DEVICE  NUMBER; 
in  OPERATING  MODE; 
in  ECHO  SWITCH); 

procedure  SET_STROKE_MODE 

(WS  :  in  WS_ID; 


DEVICE 

MODE  : 

SWITCH 

in  STROKE  DEVICE  NUMBER; 
in  OPERATING  MODE; 
in  ECHO  SWITCH); 

procedure  SET_  V  ALU  AT  OR_MO  DE 


(WS  : 

DEVICE  : 

MODE  : 

SWITCH 

in  WS  ID; 

in  VALUATOR  DEVICE  NUMBER; 
in  OPERATING  MODE; 
in  ECHO_S WITCH); 

procedure  SET  CHOICE  MODE 
(WS  : 

DEVICE  : 

MODE  : 

SWITCH  : 

in  WS  ID; 

in  CHOICE  DEVICE  NUMBER; 
in  OPERATING  MODE; 
in  ECHO_S WITCH); 

procedure  SET  PICK  MODE 
(WS  : 

DEVICE  : 

MODE  : 

SWITCH  : 

in  WS  ID; 

in  PICK  DEVICE  NUMBER; 
in  OPERATING  MODE; 
in  ECHO  SWITCH); 
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procedure  SET_STRING_MODE 

(WS  :  in  WS _ID; 

DEVICE  :  in  STRING_DEVICE_NUMBER; 

MODE  :  in  OPERATING_MODE; 

SWITCH  :  in  ECHO_SWITCH); 

procedure  REQUEST_LOCATOR 

(WS  :  in  WS_ID; 

DEVICE  :  in  LOCATOR_DEVICE_NUMBER; 

STATUS  :  out  INPUT_STATUS; 

TRANSFORMATION  :  out  TRANS FORMATION_NUMBER; 

POSITION  :  out  WC.POINT); 


procedure  REQUEST_STROKE 

(WS  :  in  WS _ID; 

DEVICE  :  in  STROKE_DEVICE_NUMBER; 

STATUS  :  out  INPUT_STATUS; 

TRANSFORMATION  :  out  TRANSFORMATION_NUMBER; 

STROKE_POINTS  :  out  WC.POINT_LIST); 

procedure  REQUESTJVALUATOR 

(WS  :  in  WS_ID; 

DEVICE  :  in  VALUATOR_DEVICE_NUMBER; 

STATUS  :  out  INPUT_STATUS; 

VALUE  :  out  VALUATORJNPUT_VALUE); 


procedure  REQUEST_CHOICE 

(WS  :  in  WS _ID; 

DEVICE  :  in  CHOICE_DEVICE_NUMBER; 

STATUS  :  out  CHOICE_REQUEST_STATUS; 

CHOICE_NUMBER  :  out  CHOICE_VALUE); 


procedure  REQUEST_PICK 
(WS  : 

DEVICE  : 

STATUS  : 

SEGMENT  : 

PICK  : 


in  WS _ID; 

in  PICK_DEVICE_NUMBER; 
out  PICK_REQUEST_STATUS; 
out  SEGMENT_NAME; 
out  PICKJD); 


procedure  REQUEST_STRING 

(WS  :  in  WS_ID; 

DEVICE  :  in  REQUEST_DEVICE_NUMBER; 

STATUS  :  out  INPUT_STATUS; 

CHAR_STRING  :  out  INPUT_STRING); 


procedure  SAMPLE_LOCATOR 

(WS  :  in  WS _ID; 

DEVICE  :  in  LOCATOR_DEVICE_NUMBER; 

TRANSFORMATION  :  out  TRANSFORM  ATION_NUMBER; 

POSITION  :  out  WC.POINT); 


procedure  SAMPLE_STROKE 

(WS  :  in  WS  _ID; 

DEVICE  :  in  STROKE_DEVICE_NUMBER; 

TRANSFORMATION  :  out  TRANS FORMATION_NUMBER; 

STROKE  POINTS  :  out  WC.POINTLIST); 
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procedure  SAMPLEJVALUATOR 

(WS  :  in  WS  JD; 


DEVICE 

VALUE 

:  in  VALUATOR  DEVICE  NUMBER; 

:  out  VALUATOR _INPUT_VALUE); 

procedure  SAMPLE  CHOICE 
(WS 

DEVICE 

STATUS 

CHOICE_NUMBER 

:  in  WS  ID; 

:  in  CHOICE  DEVICE  NUMBER; 

:  out  CHOICE  STATUS; 

:  out  CHOICEV ALUE); 

procedure  SAMPLE  PICK 
(WS 

DEVICE 

STATUS 

SEGMENT 

PICK 

:  in  WS  ID; 

:  in  PICK  DEVICE  NUMBER; 

:  out  PICK  STATUS; 

:  out  SEGMENT  NAME; 

:  out  PICKJD); 

procedure  SAMPLE  STRING 
(WS 

DEVICE 

CHAR_STRING 

:  in  WS  ID; 

:  in  STRING  DEVICE  NUMBER; 

:  out  INPUT_STRING); 

procedure  AWAIT  EVENT 
(TIMEOUT 

WS 

CLASS 

DEVICE 

:  in  DURATION; 

:  out  WS  ID; 

;  out  INPUT  CLASS; 

:  out  EVENT  DEVICE  NUMBER); 

procedure  FLUSH_DEVICE_E VENTS 


(WS 

CLASS 

DEVICE 

in  WS  ID; 

in  INPUT  QUEUE  CLASS; 
in  EVENT_OVERFLOW_DEVICE_NUMBER); 

procedure  GET  LOCATOR 
(TRANSFORMATION 
POSITION 

out  TRANSFORMATION  NUMBER; 
out  WC. POINT); 

procedure  GET  STROKE 
(TRANSFORMATION 
STROKE_POINTS 

out  TRANSFORMATION  NUMBER; 
out  WC.POINTJJST); 

procedure  GET  VALUATOR 
(VALUE 

out  V ALU ATOR_INPUT_V ALUE); 

procedure  GET  CHOICE 
(STATUS 

CHOICE_NUMBER 

out  CHOICE  STATUS; 
out  CHOICE_VALUE); 

procedure  GET  PICK 
(STATUS 

SEGMENT 

PICK 

out  PICK  STATUS; 
out  SEGMENT  NAME; 
out  PICKJD); 

procedure  GET  STRING 
(CHAR_STRING 

out  INPUT_STRING); 
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-  METAFILE  FUNCTIONS 


procedure  WR  ITE_ITEM_T 0_G  KS  M 
(WS  :  in  WS _ID; 

ITEM  :  in  GKSM_DATA_RECORD); 

procedure  GET_ITEM_TYPE_FROM_GKSM 
(WS  :  in  WS _ID; 

TYPE_OF_ITEM  :  out  GKSM_ITEM_TYPE; 

LENGTH  :  out  NATURAL); 

procedure  READ_ITEM_FROM_GKSM 
(WS  :  in  WS_ID; 

MAXIMUM_LENGTH  :  in  MAX_LENGTH  :  NATURAL; 
ITEM  :  out  GKS M_D AT A_RECORD); 

procedure  INTERPRET_ITEM 

(ITEM  :  in  GKSM_DATA_RECORD); 

-  INQUIRY  FUNCTIONS 

procedure  INQ_OPERATING_STATE_VALUE 

(VALUE  :  out  OPERATING_STATE); 


procedure  INQ_LEVEL_OF_GKS 

(ERROR_ENDICATOR  :  out  ERROR_NUMBER; 

LEVEL  :  out  GKS_LEVEL); 

procedure  INQ_LIST_OF_AVAILABLE_WS_TYPES 

(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

TYPES  :  out  WS_TYPES.LIST_OF); 


procedure  INQ_WS_MAX_NUMBERS 


(ERROR_INDICATOR 
MAX_OPEN_WS 
M  AX_ACTI  VE_W  S 
MAX  SEGMENT  WS 


out  ERROR_NUMBER; 
out  POSITIVE; 
out  POSITIVE; 
out  POSITIVE); 


procedure  INQ_MAX_NORMALIZATION_TRANSFORMATION_NUMBER 
(ERROR_INDICATOR  :  out  ERROR_NUMBER; 
TRANSFORMATION  :  out  TRANSFORMATION_NUMBER); 


procedure  INQ_SET_OF_OPEN_WS 

(ERROR_ENDICATOR  :  out  ERROR_NUMBER; 

WS  :  out  WS_IDS.LIST_OF); 

procedure  INQ_SET_OF_ACTIVE_WS 

(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

WS  :  out  WS_IDS.LIST_OF); 

procedure  INQ_CURRENT_PRIM1TIVE_ ATTRIBUTED ALUES 
(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

ATTRIBUTES  :  out  PRIMITIVE_ATTRIBUTE_VALUES); 


procedure  INQ_POLYLINE_INDEX 

(ERROR_INDICATOR  :  out  ERROR_NUMBER; 
INDEX  :  out  POLYLINE  JNDEX); 
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procedure  INQ_POLYMARKER_INDEX 


(ERRORJNDICATOR 

INDEX 

procedure  INQJTXT  INDEX 
(ERROR_INDICATOR 
INDEX 


:  out  ERROR_NUMBER; 

:  out  POLYMARKERJNDEX); 


:  out  ERROR  JMUMBER; 
:  out  TEXT_INDEX); 


procedure  INQ_CHAR_HEIGHT 

(ERRORJNDICATOR  :  out  EROR_NUMBER; 

HEIGHT  :  out  WC. MAGNITUDE); 


procedure  INQ_CHAR_UP_VECTOR 

(ERROR_INDICATOR  :  out  ERROR  JNUMBER; 

VECTOR  :  out  WC.VECTOR); 


procedure  INQ_CHAR_WIDTH 

(ERRORJNDICATOR  :  out  ERROR JNUMBER; 
WIDTH  :  out  WC. MAGNITUDE); 


procedure  INQ_CHAR_BASE 
(ERROR_INDICATOR 
VECTOR 

procedure  INQ_TEXT_PATH 
(ERROR_INDICATOR 
PATH 


VECTOR 

:  out  ERROR  JMUMBER; 
:  out  WC.VECTOR); 


:  out  ERROR_NUMBER; 
:  out  TEXT_PATH); 


procedure  INQ_TEXT_ALIGNMENT 

(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

ALIGNMENT  :  out  TEXT_ALIGNMENT); 


procedure  INQ_FILL_AREA_INDEX 

(ERROR_ENDICATOR  :  out  ERROR_NUMBER; 

INDEX  :  out  FILL_AREA_INDEX); 

procedure  IN Q_P ATTERN_W  I DTH_ VECT OR 

(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

WIDTH  :  out  WC.VECTOR); 

procedure  INQ_PATTERN_HEIGHT_VECTOR 

(ERROR_INDICATOR  :  out  ERROR  JMUMBER; 

VECTOR  :  out  WC.VECTOR); 

procedure  INQ_PATTERN_REFERENCE_POINT 

(ERROR_INDICATOR  :  out  ERROR  JMUMBER; 

REFERENCE_POINT  :  out  WC.POINT); 


procedure  INQ_CURRENT_PICKJD_VALUE 

(ERROR_INDICATOR  :  out  ERROR  JMUMBER; 

PIC  :  out  PICKJD); 

procedure  IN  Q_CURRENT  JNDI V I  DU  AL_ATTR  I B  UTE_  V  ALUE  S 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

ATTRIBUTES  :  out  INDIVIDUAL  jV[TRIBUTE_VALUES); 
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procedure  INQJJNETYPE 

(ERRORJNDICATOR  :  out  ERROR_NUMBER; 
TYPE_OF_LINE  :  out  LINETYPE); 

procedure  INQ_LINEWIDTH_SCALE_F ACTOR 

(ERROR_INDICATOR  :  out  ERROR  JSUMBER; 
WIDTH  :  out  LINEWIDTH); 

procedure  INQ_POLYLINE_COLOUR  JNDEX 

(ERROR_INDICATOR  :  out  ERROR_NUMBER; 
L  INE_C  OLO  UR  :  out  COLOUR  JNDEX); 


procedure  INQ_POLYMARKER_TYPE 

(ERRORJNDICATOR  :  out  ERROR JNUMBER; 
TYPE_OF_MARKER  :  out  MARKER  JTYPE); 

procedure  INQ_POLYMARKER_SIZE_SCALE_FACTOR 
(ERRORJNDICATOR  :  out  ERROR JSUMBER; 
SIZE  :  out  MARKER_SIZE); 

procedure  INQ_POLYMARKER_COLOUR JNDEX 

(ERRORJNDICATOR  :  out  ERROR JSUMBER; 
MARKER_COLOUR  :  out  COLOUR_INDEX); 


procedure  INQ_TEXT_FONT_AND_PRECISION 

(ERRORJNDICATOR  :  out  ERROR JTUMBER; 

FONT_PRECISION  :  out  TEXT  JDNTJ>RECIS  ION); 

procedure  INQ_CHAR_EXPANSION_F ACTOR 

(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

EXPANSION  :  out  CHAR_EXPANSION); 


procedure  INQ_CHAR_SPACING 

(ERRORJNDICATOR  :  out  ERROR JTUMBER; 

SPACING  :  out  CHAR_SPACING); 

procedure  INQ_TEXT_COLOUR JNDEX 

(ERRORJNDICATOR  :  out  ERROR JSUMBER; 

TEXT_COLOUR  :  out  COLOUR_INDEX); 

procedure  INQ_nLL_AREA_INTERIOR_STYLE 

(ERROR_INDICATOR  :  out  ERROR  JSUMBER; 

INTERIOR  :  out  INTERIOR_STYLE); 

procedure  INQ_FILL_AREA_STYLE_INDEX 

(ERROR_INDICATOR  :  out  ERROR JNUMBER; 

STYLE  :  out  STYLE_INDEX); 


procedure  INQ_FILL_AREA_COLOUR_INDEX 


(ERRORJNDICATOR 

FILL_AREA_COLOUR 

procedure  INQ_LIST_OF_ASF 
(ERROR_INDICATOR 
LIST 


:  out  ERROR_NUMBER; 
:  out  COLOURJNDEX); 


:  out  ERROR JNUMBER; 
:  out  ASF_LIST); 
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procedure  INQ_CURRENT_NORMALIZATION_TRANSFORMATION_NUMBER 
(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

TRANSFORMATION  :  out  TRANSFORM ATION_NUMBER); 

procedure  INQ_LIST_OF_NORMALIZATION_TRANSFORMATION_NUMBERS 
(ERROR .INDICATOR  :  out  ERROR_NUMBER; 

LIST  :  out  TRANSFORMATION_PRIORITY_LIST); 


procedure  INQ_NORMALIZATION_TRANSFORMATION 


(TRANSFORMATION 
ERRORJNDICATOR 
WINDOW_LIMITS 
VIEWPORT  LIMITS 


in  TRANSFORM ATION_NUMBER; 
out  ERROR_NUMBER; 
out  WC.RECTANGLE_LIMITS; 
out  NDC.RECTANGLE_LIMITS); 


procedure  INQ_CLIPPING 

(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

CLIPPING  :  out  CLIPPINGJNDICATOR; 

CLIPPING_RECTANGLE_LIMITS  :  out  NDC.RECTANGLE_LIMITS); 


procedure  ENQ_NAME_OF_OPEN_SEGMENT 

(ERROR_INDICATOR  :  out  EROR_NUMBER; 
SEGMENT  :  out  SEGMENT_NAME); 


procedure  INQ_SET_OF_SEGMENT_NAMES_IN_USE 
(ERROR_INDICATOR  :  out  ERROR_NUMBER; 

SEGMENTS  :  out  SEGMENT_NAMES.LIST_OF); 

procedure  INQ_MORE_SIMULTANEOUS_EVENTS 

(ERRORJNDICATOR  :  out  ERROR_NUMBER; 

EVENTS  :  out  MORE_E VENT S ) ; 


procedure  INQ_WS_CONNECTION_AND_TYPE 


(WS 

ERRORJNDICATOR 

CONNECTION 

TYPE_OF_WS 

procedure  ENQ_WS_STATE 
(WS 

ERRORJNDICATOR 

STATE 


in  WS  JD; 

out  ERROR JJJMBER; 

out  VARIABLE_CONNECTIONJD; 

out  WS_TYPE); 


in  WS  JD; 

out  ERROR_NUMBER; 
out  WSJ  TATE); 


procedure  INQ_WS_DEFERRAL_AND_UPDATE_STATES 


(WS 

ERRORJNDICATOR 
DEFERRAL 
REGENERATION 
DISPLAY 
FRAME  ACTION 


in  WS  JD; 

out  ERROR  JMUMBER; 
out  DEFERR AL_MODE ; 
out  REGENERATION_MODE; 
out  DISPLAY_SURFACE_EMPTY ; 
out  NE W_FR AME_NECES S ARY) ; 


procedure  INQ_LIST_OF_POLYLINEJNDICES 
(WS  :  in  WS  JD; 

ERRORJNDICATOR  :  out  ERROR JJJMBER; 

INDICES  :  out  POLYLINE JNDICES.LIST.OF); 
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procedure  INQ_POLYLINE_REPRESENTATION 
(WS  :  in  WS_ID; 


INDEX 

RETURNED  VALUES 
ERROR  INDICATOR 
TYPE_OF_LINE 

WIDTH 

LINE  COLOUR 

in  POLYLINE  INDEX; 
in  RETURN_ V ALUE_T YPE ; 
out  ERROR  NUMBER; 
out  LINETYPE; 
out  LINEWIDTH; 
out  COLOUR  INDEX); 

procedure  INQ_LIST_OF_POLYMARKER_INDICES 
(WS  :  in  WS _ID; 


ERROR  INDICATOR 
INDICES 

:  out  ERROR  NUMBER; 

:  out  POLYMARKER_INDICES.LIST_OF); 

procedure  INQ_POLYMARKER_REPRESENTATION 
(WS  :  in  WS _ID; 


INDEX 

RETURNED  VALUES 
ERROR  INDICATOR 
TYPE  OF  MARKER 
SIZE 

MARKER  COLOUR 

:  in  POLYMARKER  INDEX; 

:  in  RETURN  VALUE  TYPE; 

:  out  ERROR_NUMBER; 

:  out  MARKER  TYPE; 

:  out  MARKER  SIZE; 

:  out  COLOUR  INDEX); 

procedure  INQ_LIST_OF_TEXT_INDICES 
(WS  :  in  WS_ID; 


ERROR  INDICATOR 
INDICES 

:  out  ERROR  NUMBER; 

:  out  TEXT_INDICES.LIST_OF); 

procedure  INQ_TEXT_REPRESENTATION 
(WS  :  in  WS _ID; 


INDEX 

RETURNEDJV  ALUES 
ERROR  INDICATOR 
FONT  PRECISION 
EXPANSION 

SPACING 

TEXT_COLOUR 

:  in  TEXT  INDEX; 

:  in  RETURN  VALUE  TYPE; 

:  out  ERROR  NUMBER; 

:  out  TEXT  FONT  PRECISION; 

:  out  CHAR  EXPANSION; 

:  out  CHAR  SPACING; 

:  out  COLOUR  JNDEX); 

procedure  INQ_TEXT  EXTENT 
(WS 

POSITION 

CHAR  STRING 

:  in  WS_ID; 

:  in  WC.POINT; 

:  in  STRING; 

ERROR  JNDICATOR  :  out  ERROR_NUMBER; 

CONCATENATION_POINT  :  out  WC.POINT; 

TEXT_EXTENT  :  out  TEXT_EXTENT_PARALLELOGRAM); 

procedure  INQ_LIST_OF_FILL_AREA_INDICES 
(WS  :  in  WS _ID; 


ERROR  INDICATOR 
INDICES 

:  out  ERROR  NUMBER; 

:  out  FILL_AREA_INDICES.LIST_OF); 
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procedure  INQ_FILL_AREA_REPRESENTATION 


(WS 

INDEX 

RETURNED, V ALUE S 

ERRORJNDICATOR 

INTERIOR 

STYLE 

FILL  AREA  COLOUR 


in  WS_ID; 
in  FILL_AREA_INDEX; 
in  RETURN, VALUE_TYPE; 
out  ERROR_NUMBER; 
out  INTERIOR_STYLE; 
out  STYLEJNDEX; 
out  COLOUR_INDEX); 


procedure  INQ_LIST_OF_PATTERN_INDICES 
(WS  :  in  WS_ID; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

INDICES  :  out  PATTERN_INDICES  ,LIST_OF); 


procedure  INQ_PATTERN_REPRESENTATION 
(WS  :  in  WS_ID; 

INDEX  :  in  PATTERNJNDEX; 

RETURNED_V ALUES  :  in  RETURN, VALUE_TYPE; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

PATTERN  :  out  V ARIABLE_COLOUR_MATRIX); 


procedure  INQ_LIST_OF_COLOUR_INDICES 
(WS  :  in  WS _ID; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

INDICES  :  out  COLOUR_INDICES.LIST_OF); 


procedure  INQ_COLOUR_REPRESENTATION 


(WS 

INDEX 

RETURNED_V ALUES 
ERRORJNDICATOR 
RGB  COLOUR 


:  in  WS _ID; 

:  in  COLOUR _INDEX; 

:  in  RETURN, VALUE_TYPE; 

:  out  ERROR_NUMBER; 

:  out  COLOUR_REPRESENTATION); 


procedure  INQ_WS_TRANSFORMATION 


(WS 

ERROR_INDICATOR 

UPDATE 

REQUESTED_WINDOW 
CURRENT_WINDOW 
REQUESTED_VIEWPORT 
CURRENT  VIEWPORT 


in  WS _ID; 

out  ERROR_NUMBER; 
out  UPDATE_STATE; 
out  NDC.RECTANGLE_LIMITS; 
out  NDC.RECTANGLE_LIMITS; 
out  DC.RECTANGLE_LIMITS; 
out  DC.RECTANGLE_LIMITS); 


procedure  IN Q_S ET_OF_S EG MENT_N AME S_ON_ W S 
(WS  :  in  WS _ID; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

SEGMENTS  :  out  SEGMENT_NAMES.LIST_OF); 


Page  155 


Appendix  A 


Compiled  GKS  Specification 


procedure  INQ_LOCATOR_DEVICE_STATE 

(WS  :  in  WS_ID; 

DEVICE  :  in  LOCATOR_DEVICE_NUMBER; 

RETURNE DEVALUES  :  in  RETURN_V ALUE_TYPE; 

ERROR_INDICATOR  :  out  ERROR_NUMBER; 

MODE  :  out  OPERATING  JHODE; 

SWITCH  :  out  ECHO_SWITCH; 

INITIAL_TRANSFORMATION  :  out  TRANSFORMATION_NUMBER; 
INITIAL_POSITION  :  out  WC.POINT; 

ECHO_AREA  :  out  DC.RECTANGLE_LIMITS; 

DATA_RECORD  :  out  LOCATOR_DATA_RECORD); 


procedure  INQ_STROKE_DEVICE_STATE 


(WS 

DEVICE 

RETURNED_VALUES 

ERROR_INDICATOR 

MODE 

SWITCH 

INITIAL_TRANSFORMATION 
INITIAL_STROKE_POINTS 
ECHO_AREA 
DAT  A_RECORD 


in  WSJD; 

in  STROKE_DEVICE_NUMBER; 

in  RETURN_VALUE_TYPE; 

out  ERROR_NUMBER; 

out  OPERATING_MODE; 

out  ECHO_S WITCH; 

out  TRANSFORMATION_NUMBER; 

out  WC.POINTJJST; 

out  DC.RECTANGLE_LIMITS; 

out  STROKE  J3ATAJIECORD); 


procedure  INQ_V  ALU  ATOR 
(WS 

DEVICE 

ERRORJNDICATOR 

MODE 

SWITCH 

INITIAL  J/  ALUE 

ECHO_AREA 

DATA  RECORD 


DEVICE_STATE 
in  WSJD; 

in  VALUATOR_DEVICE_NUMBER; 
out  ERROR  JYUMBER; 
out  OPERATING_MODE; 
out  ECHO_S WITCH; 
out  V  ALU ATOR_I NPUT_  V ALUE ; 
out  DC.RECTANGLE_LIMITS; 
out  VALUATOR_DATA_RECORD); 


procedure  INQ_CHOICE_DEVICE_STATE 


(AVS 

DEVICE 

ERRORJNDICATOR 

MODE 

SWITCH 

INITIAL_STATUS 
INITIAL  JEHOICE 
ECHO_AREA 
DATA  RECORD 


in  WSJD; 

in  CHOICE_DEVICE_NUMBER; 
out  ERROR_NUMBER; 
out  OPERATING_MODE; 
out  ECHO_S WITCH; 
out  CHOICE  J5TATUS; 
out  CHOICE_VALUE; 
out  DC.RECTANGLE_LIMITS; 
out  CHOICE_DATA_RECORD); 


procedure  INQ_PICK_DEVICE 
(WS 

DEVICE 

RETURNED_VALUES 

ERROR_INDICATOR 

MODE 

SWITCH 

INITIALSTATUS 
INITIAL_SEGMENT 
INITIALPICK 
ECHO_AREA 
DAT  A_RECORD 


STATE 
:  in  WS_ID; 

:  in  PICK_DEVICE_NUMBER; 

:  in  RETURN_VALUE_TYPE; 

:  out  ERROR_NUMBER; 

:  out  OPERATING_MODE; 

:  out  ECHO_S WITCH; 

:  out  PICK_STATUS; 

:  out  SEGMENT J4AME; 

:  out  PICKJD; 

:  out  DC. RECTANGLE JJMITS; 
:  out  PICK_DATA_RECORD); 
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procedure  INQ_STRING_DEVICE_STATE 


(WS 

DEVICE 

ERROR_INDICATOR 

MODE 

SWITCH 

INITIAL_STRING 

ECHO_AREA 

DATA_RECORD 

procedure  INQ_WS_CATEGORY 
(TYPE_OF_WS  : 

ERROR  JNDICATOR  : 

CATEGORY  : 


in  WS_ID; 

in  STRING_DEVICE_NUMBER; 

out  ERROR_NUMBER; 

out  OPERATING_MODE; 

out  ECHO_S WITCH; 

out  INPUT_STRING; 

out  DC.RECTANGLE_LIMITS; 

out  STRING_DATA_RECORD); 


in  WS_TYPE; 

out  ERROR_NUMBER; 

out  WS_CATEGORY); 


procedure  INQ_WS_CLASSIFICATION 

(TYPE_OF_WS  :  in  WS_TYPE; 

ERROR_INDICATOR  :  out  ERROR_NUMBER; 

CLASS  :  out  DISPLAY_CLASS); 


procedure  INQ_DISPLAY_SPACE_SIZE 


(TYPE_OF_WS 
ERROR  JNDICATOR 
UNITS 

M  AX_DC_S  IZE 
MAX_RASTER_UNIT_SIZE 


:  in  WS_TYPE; 

:  out  ERROR_NUMBER; 

:  out  DCJJNITS; 

:  out  DC. SIZE; 

:  out  RASTER_UNIT_SIZE); 


procedure  INQ_DYNAMIC_MODIFICATION 
(TYPE_OF_WS 
ERROR  JNDICATOR 
POLYLINE_REPRESENTATION 
POLYMARKER_REPRESENTATION 
TEXT_REPRESENT  ATION 
FILL_AREA_REPRESENTATION 
PATTERN  JIEPRESENTATION 
COLOUR_REPRESENTATION 
TRANSFORMATION 


OF_WS_ATTRIBUTES 
:  in  WS_TYPE; 

:  out  ERROR  JXUMBER; 

:  out  DYNAMIC_MODIFICATION; 

:  out  DYNAMIC_MODIFICATION; 

;  out  DYNAMIC_MODIFIC ATION; 

:  out  DYNAMIC JVIODIFIC ATION; 

:  out  DYNAMIC_MODIFICATION; 

:  out  DYNAMIC_MODIFICATION; 

:  out  DYNAMIC_MODIFICATION); 


procedure  INQ_DEFAULT_DEFERRAL_STATE_VALUES 


(T  YPE_OF_W  S 
ERROR  JNDICATOR 
DEFERRAL 
REGENERATION 


in  WSJTYPE; 

out  ERROR_NUMBER; 

out  DEFERRAL_MODE; 

out  REGENERATION_MODE); 


procedure  INQ_POLYLINE_FACILITIES 
(TYPEOFWS 
ERROR  JNDICATOR 
LIST_OF_TYPES 
NUMBER_OF_WIDTHS 
NOMINAL_WIDTH 
RANG  E_OF_W  I DTH  S 
NUMBER_OFJNDICES 


in  WS_TYPE; 

out  ERROR  JNUMBER; 

out  LINETYPES.LIST_OF; 

out  NATURAL; 

out  DC.MAGNITUDE; 

out  DC.RANGE_OF_MAGNITUDES; 

out  NATURAL); 
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procedure  INQJPREDEFENED 
(TYPE_OF_WS 
INDEX 

ERRORJNDICATOR 

TYPE_OF_LINE 

WIDTH 

LINE  COLOUR 


POLYLINE_REPRESENTATION 
:  in  WS_TYPE; 

:  in  POLYLINE  JNDEX; 

:  out  ERROR_NUMBER; 

:  out  LINETYPE; 

:  out  LINEWIDTH; 

:  out  COLOUR  JNDEX); 


procedure  INQJPOLYMARKER 
(TYPE_OF_WS 
ERRORJNDICATOR 
LIST_OF_TYPES 
NUMBER_OF_SIZES 
NOMINAL  JJIZE 
RANGE_OF_SIZES 
NUMBER_OFJNDICES 


FACILITIES 
in  WS_TYPE; 
out  ERROR  JMUMBER; 
out  MARKER_TYPES.LIST_OF; 
out  NATURAL; 
out  DC. MAGNITUDE; 
out  DC.RANGE_OF_MAGNITUDES; 
out  NATURAL); 


procedure  INQ_PREDEFINED_POLYMARKER_REPRESENTATION 


(TYPE_OF_WS 

INDEX 

ERRORJNDICATOR 

TYPE_OF_MARKER 

SIZE 

MARKER  COLOUR 


in  WS_TYPE; 
in  POLYMARKER  JNDEX; 
out  ERROR  JSUMBER; 
out  MARKER_TYPE; 
out  MARKER_SIZE; 
out  COLOUR_INDEX); 


procedure  INQ_TEXT_FACILITIES 
(TYPE_OF_WS 
ERRORJNDICATOR 
LIST_OF_FONT_PRECISION_PAIRS 

NUMBER  J)F_HEIGHTS 
RANGE_OF_HEIGHTS 
NUMBER_OF_EXPANSIONS 
EXPANS  ION_RANGE 
NUMBER_OFJNDICES 


:  in  WS_TYPE; 

:  out  ERROR_NUMBER; 

:  out 

TEXT_FONT_PRECISIONS.LIST_OF; 
:  out  NATURAL; 

:  out  DC. RANGE  JDFJTAGNITUDES; 

:  out  NATURAL; 

:  out  RANGE_OF_EXPANSIONS; 

:  out  NATURAL); 


procedure  INQ_PREDEFTNED 
(TYPE_OF_WS 
INDEX 

ERRORJNDICATOR 

FONT_PRECISION 

EXPANSION 

SPACING 

TEXTCOLOUR 


TEXT_REPRESENT  ATION 
:  in  WS_TYPE; 

:  in  TEXT  JNDEX; 

:  out  ERROR  JMUMBER; 

:  out  TEXT_FONT_PRECISION; 
:  out  CHAR_EXPANSION; 

;  out  CHAR_SPACING; 

:  out  COLOUR  JNDEX); 


procedure  INQ_FILL_AREA_FACILITIES 


(TYPEJDFWS 
ERROR_INDICATOR 
LISTJDFJNTERIORJSTYLES 
LIST_OF_HATCH_STYLES 
NUMBER  JDFJNDICES 


in  WSJTYPE; 

out  ERROR_NUMBER; 

out  INTERIOR_STYLES.LIST_OF; 

out  HATCH_STYLES.LIST_OF; 

out  NATURAL); 
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procedure  INQ_PREDEFINED 
(TYPE_OF_WS 
INDEX 

ERROR  .INDICATOR 

INTERIOR 

STYLE 

FILL_AREA_COLOUR 


FILL_AREA_REPRESENTATION 
:  in  WS_TYPE; 

:  in  FILL_AREAJNDEX; 

:  out  ERROR_NUMBER; 

:  out  INTERIOR_STYLE; 

:  out  STYLEJNDEX; 

:  out  COLOURJNDEX); 


procedure  INQ_PATTERN_FACILITIES 

(TYPEJ3FJVS  :  in  WS_TYPE; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

NUMBER_OF_INDICES  :  out  NATURAL); 


procedure  INQ_PREDEFINED_PATTERN_REPRESENT ATION 
(TYPE_OF_W S  :  in  WS_TYPE; 

INDEX  :  in  PATTERNJNDEX; 

ERRORJNDICATOR  :  out  ERROR  JNUMBER; 

PATTERN  :  out  VARIABLE_COLOUR_MATRIX); 


procedure  INQ_COLOUR_FACILITIES 
(TYPE_OF_WS 
ERRORJNDICATOR 
NUMBER  J)F_COLOURS 
AVAILABLE_COLOUR 
NUMBER_OF_COLOURJNDICES 


in  WS_TYPE; 

out  ERROR_NUMBER; 

out  NATURAL; 

out  COLOUR_A  VAIL  ABLE; 

out  NATURAL); 


procedure  INQ_PREDEFINED_COLOUR_REPRESENTATION 


(TYPE_OF_WS 
INDEX 

ERRORJNDICATOR 
RGB  COLOUR 


in  WSJTYPE; 
in  COLOURJNDEX; 
out  ERROR_NUMBER; 
out  COLOUR_REPRESENTATION); 


procedure  INQ_LIST_OF_AVALLABLE_GDP 
(TYPE_OF_WS  :  in  WS_TYPE; 

ERRORJNDICATOR  :  out  ERROR_NUMBER; 

LIST_OF_GDP  :  out  GDPJDS.LISTJDF); 


procedure  INQ_GDP 
(TYPE_OF_WS 
GDP 

ERRORJNDICATOR 

LIST_OF_ATTRIBUTES_USED 


in  WS_TYPE; 
in  GDPJD; 

out  ERROR_NUMBER; 

out  ATTRIBUTES  JJSED.LISTJ3F); 


procedure  INQ_MAX_LENGTH_OF_WS 
(TYPE_OF_WS 
ERROR_INDICATOR 
MAX_POLYLINE_ENTRIES 

max_polymarker_entries 

MAX_TEXT_ENTRIES 
MAX_FILL_AREA_ENTRIES 
MAX_PATTERN_INDICES 
MAX_COLOUR  JNDICES 


S  T  ATE_T  ABLES 
:  in  WS_TYPE; 

:  out  ERROR JVUMBER; 
:  out  NATURAL; 

:  out  NATURAL; 

:  out  NATURAL; 

:  out  NATURAL; 

:  out  NATURAL; 

:  out  NATURAL); 
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procedure  INQ_NUMBER_OF_SEGMENT_PRIORITIES_SUPPORTED 
(TYPE_OF_WS  :  in  WS_TYPE; 

ERRORJNDICATOR  :  out  ERROR  JKUMBER; 

NUMBER_OF_PRIORITIES  :  out  NATURAL); 


procedure  INQ_DYNANUC_MC)DIFICATION_OF_SEGMENT_ ATTRIBUTES 


(TYPE  JDFWS 

ERRORJNDICATOR 

TRANSFORMATION 

VISIBLE_TO_INVISIBLE 

INVISIBLETOJ/ISIBLE 

HIGHLIGHTING 

PRIORITY 

ADDING  JHJMITIVES 
DELETION  VISIBLE 


in  WS_TYPE; 
out  ERROR_NUMBER; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC  JTODEFICATION; 
out  DYNAMIC_MODIFICATION; 
out  DYNAMIC_MODIEICATION; 
out  DYNAMIC_MODIFICATION) 


procedure  INQ_NUMBER_OF_AVAILABLE_LOGICAL_INPUT_DEVICES 


(T  YPE_OF_W  S 

ERRORJNDICATOR 

LOCATOR 

STROKE 

VALUATOR 

CHOICE 

PICK 

STRING 


in  WS_TYPE; 

out  ERROR_NUMBER; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL; 

out  NATURAL); 


procedure  INQ_DEFAULT_LOCATOR_DEVICE_DATA 


(TYPE_OF_WS 

DEVICE 

ERRORJNDICATOR 

INITIAL_POSITION 

LIST_OF_PROMPT_ECHO_TYPES 

,ECHO_AREA 
DATA  RECORD 


:  in  WS_TYPE; 

:  in  LOCATOR JDEVICEJNUMBER; 

:  out  ERROR_NUMBER; 

:  out  WC. POINT; 

:  out 

LOCATOR_PROMPT_ECHO_TYPES.LIST_OF; 
;  out  DC.RECTANGLEJJMITS; 

:  out  LOCATOR_DATA_RECORD); 


procedure  ENQ_DEFAULT_STROKE_DEVICE_DATA 


(TYPE_OF_WS 

DEVICE 

ERRORJNDICATOR 
M  AX_B  UFFER_S  IZE 
LIST_OF_PROMPT_ECHO_TYPES 


:  in  WS_TYPE; 

:  in  STROKE  JDEVICEJNUMBER; 
:  out  ERROR_NUMBER; 

:  out  NATURAL 
:  out 


ECHO_AREA 
DAT  A_RECOR  D 


S  TRO  KE_PROMPT_ECHO_TYPES  .LIS  T_OF; 
:  out  DC.RECTANGLEJJMITS; 

:  out  STROKE_DATA_RECORD); 


procedure  INQ_DEFAULT_VALUATOR_DEVICE_DATA 


(TYPE_OF_WS 

DEVICE 

ERRORJNDICATOR 
INITI  AL_V  ALUE 

LIST_OF_PROMPT_ECHO_TYPES 

ECHO_AREA 
DATA  RECORD 


:  in  WS_TYPE; 

:  in  VALUATOR J)EVICE_NUMBER; 

:  out  ERROR_NUMBER; 

:  out  V ALU ATOR_INPUT_ V ALUE 
:  out 

VALUATOR_PROMPT_ECHO_TYPES.LIST_OF; 
:  out  DC.RECTANGLE_LIMITS; 

:  out  VALUATOR_DATA_RECORD); 
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procedure  INQ_DEFAULT_CHOICE_DEVICE_DATA 


(TYPE_OF_  W  S 
DEVICE 

ERROR  .INDICATOR 
MAX_CHOICES 

LIST_OF_PROMPT_ECHO_TYPES 


:  in  WS_TYPE; 

:  in  CHOICE_DEVICE_NUMBER; 
:  out  ERROR_NUMBER; 

:  out  CHOICE,  VALUE; 

:  out 


ECHO_AREA 
DATA  RECORD 


CHOICE  J>ROMPTJICHO_TYPES.LIST_OF; 
:  out  DC.RECTANGLE_LIMITS; 

:  out  CHOICE_DATA_RECORD); 


procedure  INQ_DEFAULT_PICK_DEVICE_DATA 

(TYPE_OF_W S  :  in  WS_TYPE; 

DEVICE  :  in  PICK_DEVICE_NUMBER; 

ERROR  JNDICATOR  :  out  ERROR_NUMBER; 

LIST_OF_PROMPT_ECHO_TYPES  :  out  PICK_PROMPT_ECHO_TYPES.LIST_OF; 
ECHO,AREA  :  out  DC.RECTANGLE_LIMITS ; 

DATA_RECORD  :  out  PICK_DATA_RECORD); 


procedure  ENQ_DEFAULT_STRING_DEVICE_DATA 


(TYPE_OF_WS 

DEVICE 

ERRORJNDICATOR 

max_string_buffer_size 

LIST_OF_PROMPT_ECHO_TYPES 

ECHO_AREA 
DAT  A_REC  OR  D 

procedure  INQ_SET_OF_ASSOCIATED_WS 
(SEGMENT 
ERRORJNDICATOR 
LIST_OF_WS 


:  in  WS_TYPE; 

:  in  STRING_DEVICE_NUMBER; 

:  out  ERROR_NUMBER; 

:  out  NATURAL; 

:  out 

STRING_PROMPT_ECHO_TYPES.LIST_OF; 
:  out  DC.RECTANGLE_LIMITS; 

:  out  STRING_DATA_RECORD); 


:  in  SEGMENT_NAME; 

:  out  ERROR_NUMBER; 
:  out  WSJDS.LIST_OF); 


procedure  INQ_SEGMENT_ATTRIBUTES 


(SEGMENT 

ERRORJNDICATOR 

TRANSFORMATION 

VISIBILITY 

HIGHLIGHTING 

PRIORITY 

DETECTABILITY 


in  SEGMENT J^AME; 

out  ERROR  JnTUMBER; 

out  TRANSFORM ATION_MATRIX; 

out  SEGMENT_VISIBILITY ; 

out  SEGMENT_HIGHLIGHTING; 

out  SEGMENT JTHORITY; 

out  SEGMENT_DETECTABILITY); 


procedure  INQ_PIXEL_ARRAY_DIMENSIONS 


(WS 

CORNER,  1_1 
CORNER_DX_DY 
ERRORJNDICATOR 
DIMENSIONS 


;  in  WS  JD; 

:  in  WC. POINT; 

:  in  WC. POINT; 

:  out  ERROR  JSUMBER; 

:  out  RASTER  JJNIT_SIZE); 


procedure  INQ_PIXEL_ARRAY 
(WS 

CORNER 

DX 

DY 

ERROR_INDICATOR 
INV  ALI  D_  V  ALUES 
PIXEL  ARRAY 


:  in  WS  JD; 

:  in  WC. POINT; 

:  in  RASTERJJNITS; 

:  in  RASTER_UNITS; 

:  out  ERROR JSIUMBER; 

:  out  INV  ALID_V  ALUES  JNDICATOR; 

:  out  VARIABLE_PIXEL_COLOUR_MATRIX); 
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procedure  INQ_PIXEL 
(WS 
POINT 

ERROR  JNDICATOR 
PIXEL  COLOUR 


in  WS_ID; 

in  WC. POINT; 

out  ERROR_NUMBER; 

out  PIXEL_COLOUR_INDEX); 


procedure  INQ_INPUT_QUEUE_OVERFLOW 


(ERROR_INDICATOR 
WS 

CLASS 
DEVICE 


out  ERROR  JNTUMBER; 
out  WS_ID; 

out  INPUT_QUEUE_CL AS S ; 

out  EVENT_OVERFLOW_DEVICE_NUMBER); 


-  UTILITY  FUNCTIONS 


procedure  E  V  ALU  ATE_TR  AN  SFORM  ATION_MATRIX 


(FIXED_POINT 
SHIFT_VECTOR 
ROTATION_ANGLE 
SCALE_FACTORS 
TRANSFORMATION 


:  in  WC. POINT; 

:  in  WC. VECTOR; 

;  in  RADIANS; 

:  in  TRANSFORMATION_F ACTOR; 

:  out  TRANSFORMATION_MATRIX); 


procedure  EVALUATE_TRANSFORMATION_MATRIX 


(FIXED_POINT 
SHIFT_VECTOR 
ROTATION_ANGLE 
SCALE_F  ACTORS 
TRANSFORMATION 


:  in  NDC. POINT; 

:  in  NDC. VECTOR; 

:  in  RADIANS; 

:  in  TRANSFORMATION_FACTOR; 

:  out  TRANSFORMATION_MATRIX); 


procedure  ACCUMULATE_TRANSFORMATION_MATRIX 

(SOURCE_TRANSFORMATION  :  in  TRANSFORMATION_MATRIX; 


FIXED_POINT 
SHIFT_  VECTOR 
ROTATION_  ANGLE 
SCALE_F  ACTORS 
RESULT  TRANSFORMATION 


:  in  WC.POINT; 

:  in  WC. VECTOR; 

:  in  RADIANS; 

:  in  TRANSFORMATION_F ACTOR; 

:  out  TRANSF0RMAT10N_MATRIX); 


procedure  ACCUMULATE_TRANSFORMATION_MATRIX 

(SOURCE_TRANSFORMATION  ;  in  TRANSFORMATION_MATRIX; 


FIXEDPOINT 
SHIFT_  VECTOR 
ROTATION_  ANGLE 
SCALE_F  ACTORS 
RESULT_TRANSFORMATION 

-  ERROR  FUNCTIONS 


:  in  NDC. POINT; 

:  in  NDC. VECTOR; 

:  in  RADIANS; 

:  in  TRANSFORM ATION_F ACTOR; 

:  out  TRANSFORMATION_MATRIX); 


procedure  ERROR_LOGGING 
(ERROR_INDICATOR 
GKS_FUNCTION 
ERROR  FILE 


:  in  ERROR_NUMBER; 

;  in  STRING; 

;  in  STRING  :=  DEFAULT_ERROR_FILE); 


procedure  EMERGENCY_CLOSE_GKS; 
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METAFILE  FUNCTION  UTILITIES 

—  Item  data  records  may  contain  lists  of  points,  character  strings,  arrays  of  colour  indices, 

—  and  GDP  and  ESC  data.  Record  length  depends  on  the  number  of  data  elements.  GKS 

—  defines  that  the  format  is  implementation  defined. 

—  The  item  data  record  type  should  be  private  to  allow  direct  manipulation  of  the  record 

—  contents  in  order  to  have  them  efficiently  processed. 

—  The  application  programmer  must  be  able  to  write  non-graphical  data  into  the  metafile. 

—  This  can  be  provided  by  allowing  character  strings  to  be  output.  Numeric  data  must  be 

—  converted  to  a  string  by  the  application  programmer  prior  to  calling 

--  BUILD_NEW_GKSM_DATA_RECORD.  A  function  is  provided  as  a  means  to 

—  convert  item  data  records  into  strings. 

procedure  BUILD_NEW_GKS  M_DATA_RECORD 

(TYPE_OF_ITEM  :  in  GKS  M_I TE M_T Y PE ; 

ITEM_DATA  :  in  STRING; 

ITEM  :  out  GKSM_DATA_RECORD); 

function  ITEM_DATA_RECORD_STRING 
(ITEM  :  in  GKSM_DATA_RECORD) 
return  STRING; 

private 

—  The  following  types  define  the  specifications  for  the  private  data  records. 

type  GKSM_DATA_RECORD  (TYPE_OF_ITEM  :  GKSM_ITEM_TYPE  :=  0; 

LENGTH  :  NATURAL  :=  0)  is 

record 

null; 

end  record; 

type  CHOICE_D AT A_RECORD  (PROMPT_ECHO_TYPE: 

CHOICE_PROMPT_ECHO_TYPE  :=  DEFAULT_CHOICE  is 

record 

null; 

end  record; 

type  LOCATOR_DATA_RECORD  (PROMPT_ECHO_TYPE: 

LOCATOR_PROMPT_ECHO_TYPE  :=  DEFAULT_LOCATOR)  is 

record 

null; 

end  record; 

type  STRING_DATAJRECORD  (PROMPT_ECHO_TYPE: 

STRING_PROMPT_ECHO_TYPE  :=  DEFAULT_STRING)  is 

record 

null; 

end  record; 
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type  STROKE_DATA_RECORD  (PROMPT_ECHO_TYPE: 

STROKE_PROMPT_ECHO_TYPE  :=  DEFAULT_STROKE)  is 

record 

null; 

end  record; 

type  VALUATOR_DATA_RECORD  (PROMPT_ECHO_TYPE: 

VALUATOR_PROMPT_ECHO_TYPE  :=  DEFAULTJVALUATOR)  is 

record 

null; 

end  record; 

type  PICK_DATA_RECORD  (PROMPT_ECHO_TYPE: 

PICK_PROMPT_ECHO_TYPE  :=  DEFAULT_PICK)  is 

record 

null; 

end  record; 
end  GKS; 

-  ERROR  HANDLING  FUNCTION 

-  The  ERROR  HANDLING  FUNCTION  is  a  separate  library  unit; 

-  and  not  compiled  as  a  part  of  package  GKS. 

procedure  ERROR_HANDLING 

(ERRORJNDICATOR  ;  in  ERROR_NUMBER; 

GKS_FUNCTION  :  in  STRING; 

ERROR_FILE  ;  in  STRING  :=  DEFAULT_ERROR_FILE); 

with  GKS_TYPES; 
use  GKSJTYPES; 

package  GKS_GDP  is 

--  The  GDP  package  is  a  separate  library  unit,  and  not  compiled  as  a  part  of  GKS. 

-  The  Generalized  Drawing  Primitive  (GDP)  is  bound  in  a  one-to-many  fashion,  with  a 

-  separate  procedure  implemented  for  each  GDP,  each  with  its  own  parameter  interface. 

--  GDP  names  and  parameters  are  registered  in  the  ISO  International  Register  of  Graphical 
--  Items  which  is  maintained  by  the  Registration  Authority. 

--  Each  unregistered  GDP  procedure,  supported  by  an  implementation  will  be  in  a  separate 

-  library  package  using  the  following  naming  convention: 

-  package  GKS_UGDP_<name  of  the  GDP  procedure>  is 

procedure  GDP; 

-  Ada  code  for  UGDP  procedure, 
end  GKS_UGDP_<namc  of  the  GDP  procedures-; 

—  The  only  procedure  name  used  in  llie  package  will  be  GDP. 
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-  In  order  to  support  the  ability  to  write  a  GDP  that  is  not  implemented  at  a  given 

-  implementation  to  a  metafile,  these  registered  GDPS,  may  be  invoked  using  the  data 

-  types  and  the  form  of  the  procedure  GENERALIZED_GDP  which  have  the  specifications 

-  given  below: 

type  GDP_FLOAT  is  digits  PRECISION; 

type  GDP_INTEGER_ ARRAY  is  array  (SMALL_NAT(JRAL  range  <  >) 
of  INTEGER; 

type  GDP_FLOAT_ARRAY  is  array  (SMALL_NATURAL  range  <  >) 
of  GDP_FLOAT; 

type  GDP_STRING_ARRAY  is  array  (SMALL_NATURAL  range  <  >) 
of  STRING  (1..80); 

type  GDP_DATA_RECORD  (NUM_OF_INTEGERS 

NUM_OF_REALS 
NUMOFSTRINGS 

record 

INTEGER, ARRAY  :  GDP_INTEGER_ ARRAY 
REAL_ARRAY  :  GDP_FLOAT_ARRAY 
GDP_STRINGS  :  GDP_STRING_ARRAY 
end  record; 

procedure  GENERAL IZED_GDP  (GDP_NAME 

POINT 
GDP_DATA 

end  GKS_GDP; 

with  GKS_TYPES; 
use  GKS_TYPES; 

package  GKS_ESCAPE  is 

-  The  ESCAPE  package  is  a  separate  library  unit,  and  not  compiled  as  a  part  of  GKS. 

--  Escape  functions  are  bound  in  Ada  as  separate  procedures  for  each  unique  type  of  escape 

-  provided  by  the  implementation,  each  with  a  formal  parameter  list  appropriate  to  the 

-  procedure  implemented.  The  registered  ESCAPE  procedures  will  be  in  a  library  package 

-  named  GKS_ESCAPE.  ESCAPE  names  and  parameters  are  registered  in  the  ISO 

-  International  Register  of  Graphical  Items  which  is  maintained  by  the  Registration  Authority. 

--  Each  unregistered  ESCAPE  procedure  will  be  a  library  package  using  the  following  naming 

-  convention: 

package  GKS_UESC_<name  of  the  escape  procedure>  is 
procedure  ESC; 

-  Ada  code  for  UESC  procedure. 

end  GKS_UESC_<name  of  the  escape  procedures 

-  —  The  only  procedure  name  used  in  the  package  will  be  ESC. 


:  SMALL_NATURAL  :=  0; 

:  SMALL_NATURAL  :=  0; 

:  SMALL_NATURAL  :=  0)  is 

(l..NUM_OFJNTEGERS); 

(l..NUM_OF_REALS); 

(1  ,.NUM_OF_STRINGS); 


:  in  GDP  ID; 

:  in  WC.POINT_LIST; 

:  out  GDP_DATA_RECORD); 
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—  In  order  to  support  the  ability  to  write  an  ESCAPE  that  is  not  implemented  at  a  given 

—  implementation  to  a  metafile  these  registered  ESCAPES  may  be  invoked  using  the 

—  data  types  and  the  form  of  the  procedure  GENERALIZED_ESC  which  have  the  specifications 

—  given  below: 


type  ESCAPE  ID  is  new  INTEGER; 

type  ES C APE_FLO AT  is  digits  PRECISION; 

type  ESC _INTEGER_ ARRAY  is  array  (SMALL_NATURAL  range  <  >) 
of  INTEGER; 

type  ESC_FLOAT_ARRAY  is  array  (SMALL_NATURAL  range  <  >) 
of  ESC  APE_FLO  AT ; 

type  ESC_STRING_ARRAY  is  array  (SMALL_NATURAL  range  <  >) 
of  STRING  (1..80); 


type  ES C_D AT A_RECORD  (NUM_OF_INTEGERS 

NUM_OF_REALS 

NUM_OF_STRINGS 

record 

INTEGER, ARRAY  :  ESC_INTEGER_ARRAY 
REAL_ARRAY  :  ESC_FLO AT, ARRAY 
ESC_STRINGS  :  ESC_STRING_ARRAY 
end  record; 


:  SMALL_NATURAL  :=  0; 

:  SMALL_NATURAL  :=  0; 

:  SMALL_NATURAL  :=  0)  is 

( 1 .  ,NUM_OF JNTEGERS); 

( 1  ..NUM_OF_RE  ALS); 
(l..NUM_OF_STRINGS); 


procedure  GENERALIZED_ESC 


end  GKS_ESCAPE; 


(ESCAPE_NAME 

ESC_DATA_fN 

ESC_DATA_OUT 


:  in  ESCAPE_ID; 

:  in  ESC_DATA_RECORD; 

:  out  ESC_DATA_RECORD); 
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Cross  Reference  Listing  of  Implementation  Defined  Items 

(This  Appendix  does  not  form  an  integral  part  of  this  standard,  but  provides  additional  information.) 


ITEM 

SECTION 

CHOICE  DATA  RECORD 
LOCATOR  DATA_RECORD 
PICK  DATA  RECORD 

STRING  DATA_RECORD 
STROKE  DATA_RECORD 
VALUATOR_DATA_RECORD 

4.2.3 

4.2.3 

4.2.3 

4.2.3 

4.2.3 

4.2.3 

DEFAULT  MEMORY  UNITS 
DEFAULT  ERROR  FILE 
PRECISION 

4.2.4 

4.2.4 

4.2.4 

MAX  LIST  SIZE 

5.2.3 
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Example  Programs 

(This  Appendix  is  not  an  integral  part  of  the  standard,  but  provides  additional  information.) 
This  Appendix  gives  complete  programs  using  the  language  binding  defined  in  this  standard. 

C.l  Example  Program  1  :  STAR 
-  PROGRAM  STAR 


-  DESCRIPTION: 

This  program  draws  a  yellow  star  on  a  blue  background  and  writes  the 

-  title  'STAR'  in  green  under  the  star. 

-  CONFORMANCE: 

GKS  Level:  Oa 

The  implementation  must  support  at  least  one  workstation  of  category  output  or  outin. 

with  GKS; 
with  GKS_TYPES; 

use  GKS; 

use  GKS_TYPES; 


procedure  STAR  is 


-  Define  the  Workstation  variables  and  error  logging  file. 


MY_WS_ID 

SOME_CONNECTION 

SOME_OUTPUT_TYPE 

ERROR_FILE 


:  constant  WS_ID 
:  constant  STRING 
:  constant  WS_TYPE 
:  constant  STRING 


=  l; 

=  "UNIT_1"; 

=  l; 

=  "MY_ERROR_FILE"; 


—  Define  the  points  of  the  Star. 


STAR_POINTS  :  constant  WC.POINT_ARRAY  := 

((  0.951057,  0.309017), 
(-0.951057,  0.309017), 

(  0.587785,-0.951057), 
(0.0  ,1.0), 
(-0.587785,-0.951057)); 


—  Define  World  Coordinate  Window  and  miscellaneous  attributes. 


WINDOW  :  WC.RECTANGLE_LIMITS  := 

(XMIN  =>  -1.25,  XMAX  =>  1.25, 
YMIN  =>  -1.25,  YMAX  =>  1.25); 
TEXT_POSIT!ON  :  WC.POINT  :=  (0.0,- 1 .0); 

begin 


-  Open  GKS  and  activate  a  workstation. 

OPENGKS  (ERROR_FlLE); 

OPEN  WS  (MY_WS_ID,  SOME_CONNECTION,  SOME_OUTPUT_TYPE); 

ACTIVATE_WS  (MY_WSJD); 
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—  Center  the  window  around  the  origin. 

SET_WINDOW  (1 ,  WINDOW); 
SELECT_NORMALIZATION_TR ANSFORMATION  ( 1 ); 

—  Define  the  colours. 


SET_COLOUR_REPRESENTATION 

SET_COLOUR_REPRESENTATION 

SET_COLOUR_REPRESENTATION 


(WS  =>  MY_WS_ID, 

INDEX  =>  0, 

RGBCOLOUR  =>  (0.0, 0.0, 1.0)); 

(WS  =>  MY_WS_ID, 

INDEX  =>  1, 

RGB  COLOUR  =>  (1.0,1. 0,0.0)); 

(WS  =>  MY_WS_ID, 

INDEX  =>  2, 

RGB  COLOUR  =>  (1.0, 1.0, 1.0)); 


—  Set  Fill  Area  attributes. 

SET_FILL_AREA_INTER10R_STYLE  (SOLID); 
SET_FILL_AREA_COLOUR_INDEX  (1); 

—  Draw  the  star. 

FILL_AREA  (STAR_POINTS); 


—  Select  large  characters  centered  under  the  star. 


SET_CHAR_HEIGHT 

SET_TEXT_ALIGNMENT 

SET_TEXT_COLOUR_INDEX 


(HEIGHT  =>  0.15); 

(ALIGNMENT  =>  (CENTRE,  HALF)); 
(TEXT_COLOUR  =>  2); 


—  Draw  the  title. 

TEXT  (TEXT_POSITION,  "STAR”); 

—  Close  the  workstation  and  shut  down  GKS. 

DEACTIVATE_WS  (MY_WS_ID); 
CLOSE_WS  (MY_WS_ID); 

CLOSE_GKS; 

end  STAR; 
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C.2  Example  Program  2  :  IRON 
-  PROGRAM  IRON 


-  DESCRIPTION: 

This  program  draws  a  horizontal  bar  chart  illustrating  costs  within  the  iron  industry. 
The  user  can  select  the  data  to  be  displayed  using  a  GKS  choice  device.  The  plot  is 

-  adapted  from  "Scientific  American'  May  1984,  page  139. 

-  CONFORMANCE: 

GKS  Level:  2b 


with  GKS; 
with  GKS_TYPES; 


use  GKS; 

use  GKS_TYPES; 


procedure  IRON  is 


—  Define  the  Workstation  variables  and  error  logging  fde. 


MY_WS_ID 

SOME_CONNECTION 

SOME_OUTIN_TYPE 

ERROR_FILE 


:  constant  WS_ID 
:  constant  STRING 
:  constant  WS_TYPE 
:  constant  STRING 

"MY_ERROR_FILE"; 


=  1; 

=  "TTY"; 

=  2; 


—  Declare  and  initialise  aspect  source  flags  (use  BUNDLES-  for  fill  interior; 

-  others  set  to  INDIVIDUAL). 


ASF_SETTINGS  :  ASF. 

(TYPE_OF_LINE_ASF 
WIDTH_ASF 
LINE_COLOUR_ASF 
TYPE_OF_MARKER_ASF 
SIZE_ASF 

MARKER_COLOUR_ASF 

FONTPRECISIONASF 

EXPANSION_ASF 

SPACING_ASF 

TEXT_COLOUR_ASF 

INTERIOR_ASF 

STYLE_ASF 

FILL  AREA  COLOUR  ASF 


LIST  := 

=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  INDIVIDUAL, 
=>  BUNDLED, 

=>  BUNDLED, 

=>  INDIVIDUAL); 


—  Declare  and  initialise  objects  for  choice  device. 


CHOICE_STRING_COUNT 

CHOICE_DEVICE 

CHOICE_ERROR 

CHOICEMODE 

CHOICE_ECHO_S  WITCH 

INITIAL_CHOICE 

CHOICEINPUTRECORD 

CHOICE_ECHO_AREA 


constant  :=  3; 

constant  CHOICE_DEVICE_NUMBER  :=  1 ; 
ERRORJSUMBER; 

OPERATING_MODE; 

ECHO_S  WITCH; 

CHOICE_VALUE; 

CHOICE_D  AT  A_RECORD; 
DC.RECTANGLE_LIMITS; 
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PROMPT  ECHO  TYPE 

constant  CHOICE_PROMPT  ECHO  TYPE 

:=  3; 

CHOICE_STRINGS 

constant  CHOICE  PROMPT  STRING  LIST 
(LENGTH=>  3,  LIST  => 
((4,"U.S."),  (9, "W. GERM  ANY"), 
(5, "JAPAN"))); 

CHOICE  RECORD 

CHOICE  DATA  RECORD; 

CHOICE 

CHOICE_  VALUE; 

CHOICE_REQUEST 

CHOICE  REQUEST  STATUS; 

IN  ITI  AL_S  T  ATU  S 

CHOICE  STATUS; 

—  Declare  colour  objects. 

RGBCOLOUR 

COLOUR  REPRESENTATION; 

WHITE 

constant  COLOURJNDEX 

:=  0; 

BLACK 

constant  COLOUR  INDEX 

:=  1; 

RED 

constant  COLOURJNDEX 

•  - 

-  Declare  and  initialise  window  objects. 

WINDOW  J  :  TRANSFORMATION_NUMBER  :=  1; 

WINDOWJJMITS  :  WC.RECT ANGLE  JJMITS  := 

(XMIN  =>  -100.0,  XMAX  =>  175.0, 

YMIN  =>  -2.0,  YMAX  =>  13.0); 


—  Declare  and  initialise  object  for  bar  data  to  plot. 


MAX  DATA 


:  constant 


:=  6; 


type  IRON  J)  AT  A  is  array  (1  ..  MAX_DATA)  of  WC_TYPE 


US_DATA_1 
US_DATA_2 
GERMANY_DATA_1 
GERMANY_DATA_2 
J  APAN_D  AT  A_  1 
JAPAN  DATA  2 


IRON 

IRON 

IRON. 

IRON 

IRON 

IRON 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


=  (69.0,  50.0, 
=  (72.0,  50.0, 
=  (65.0,  42.0, 
=  (70.0,  53.0, 
=  (65.0,  47.0, 
-  (70.0,  57.0, 


15.0,  53.0,  57.0,  150.0); 
103.0,  0.0,  0.0,  56.0); 
3.0,  89.0,  52.0,  93.0); 
102.0,  0.0,  0.0,  49.0); 
2.0,  60.0,  52.0,  55.0); 
105.0,  0.0,  0.0,  41.0); 


procedure  BARS  (LENGTH 
POSITION 


:  in  WC_TYPE; 

:  in  WC.POINT)  is 


LEFT_HALF  :  TEXT_ALIGNMENT  :=  (LEFT, HALF); 

BAR  POINTS  :  WC.POINT_ARRAY  (1..4); 


begin 

if  LENGTH  =  0.0  then 
SET_TEXT_ALIGNMENT  (LEFT_HALF); 
TEXT  (POSITION, "0”); 
else 

BAR_POINTS  :=( 

(X  =>  0.0, 

(X  =>  LENGTH, 

(X  =>  LENGTH, 

(X  =>  0.0, 

FILL_AREA  (BAR_POINTS); 
end  if; 


Y  =>  POSITION. Y  +  0.4), 

Y  =>  POSITION. Y  +  0.4), 

Y  =>  POSITION. Y  -  0.4), 

Y  =>  POSITION.  Y  -  0.4)); 


end  BARS; 
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procedure  TICKS  (TICK_MARK_POSITION  :  in  out  WC.POINT_ARRAY)  is 
TICK_MARK_LABEL_POSITION  :  WC.POINT; 


begin 


for  I  in  1..4  loop 

POLYLINE  (TICK_MARK_POSITION); 

TICK_MARK_POSITION  (1).X  :=  TICK_MARK_POSITION(l).X  +  50.0; 
TICK_MARK_POSITION  (2).X  :=  TICK_MARK_POSITION(2).X  +  50.0; 
end  loop; 


-  Draw  tick  mark  labels. 

TICK_MARK_LABEL_POSITION.X  :=  0.0; 

TICK_MARK_LABEL_POSITION.Y  :=  WC_TYPE  (TICK_MARK_POSITION(l).Y); 
TEXT  (TICK_MARK_LABEL_POSITION,  "0"); 

TICK_MARK_LABEL_POSITION.X  :=  50.0; 

TEXT  (TICK_MARK_LABEL_POSITION,  "50"); 

TICK_MARK_LABEL_POSITION.X  :=  100.0; 

TEXT  (TICK_MARK_LABEL_POSITION,  "100"); 

TICK_MARK_LABEL_POSITION.X  :=  150.0; 

TEXT  (TICK_MARK_LABEL_POSITION,  "150"); 


end  TICKS; 


procedure  BORDER  is 


—  Draws  the  border  surrounding  the  data. 


WC.POINT; 

WC.POINT  :=  (37.5,  -2.0); 

WC. MAGNITUDE  :=  0.5; 

TEXT_ALIGNMENT  :=  (LEFT,  HALF); 
TEXT_ALIGNMENT  :=  (CENTRE,  BOTTOM); 
TEXT_ALIGNMENT  :=  (CENTRE,  CAP); 
CONTROL_FLAG  :=  CONDITIONALLY; 
constant  WC.POINT_ARRAY  :=( 

(0.0, 0.0),  (150.0,0.0),  (150.0,12.0), 

(0.0,12.0),  (0.0,  0.0)); 

type  LABELS  is  array  (1..6)  of  INPUT_STRING; 

BAR_LABELS  :  constant  LABELS  :=  ( 

(5, "LABOR"),  (8, "IRON  ORE"), 

(12, "COKE  OR  COAL"), 

(15, "PURCHASED  SCRAP"),  (11,  "OTHER  COSTS"), 
(12, "OTHER  ENERGY")); 

TOP_TICK_MARK_START  :  WC.POINT_ARRAY(1..2)  :=  ( 

(0.0,12.0),  (0.0,11.9)); 

BOTTOM_TICK_MARK_START  :  WC.P01NT_ARRAY(1..2)  :=  ( 

(0.0,0.0),  (0.0,0.!)); 


LABELPOSITION 

TITLE_POSITION 

HEIGHT 

LEFT_HALF 

CENTRE_BOTTOM 

CENTRE_CAP 

only_if_not_empty 

BOX_POINTS 
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begin  —  Procedure  BORDER. 

CLEAR_WS  (MY_WSJD,ONLY_IF_NOT_EMPTY); 


—  Draw  the  box  surrounding  the  chart  area. 
POLYLINE  (BOX  JDINTS); 


—  Draw  the  bar  labels  centered  on  the  bar  and  flush  left. 

SET  JEXT_ALIGNMENT  (LEFT_HALF); 

SET_CHAR_HEIGHT  (HEIGHT); 

SET_TEXT_COLOUR  JNDEX  (BLACK); 

LABEL_POSITION.X  :=  -99.0; 
for  I  in  1..6  loop 

LABEL_POSITION.Y  :=  WC_TYPE(2.0  *  (FLOAT(I)-l.O)  +  1.2); 

TEXT  (LABEL_POSITION,  BAR_LABELS(INTEGER(I)). CONTENTS); 
end  loop; 

—  Draw  the  top  and  bottom  tick  marks  (bottom  in  red). 
SET_TEXT_ALIGNMENT  (CENTRE_BOTTOM); 


—  Call  procedures  to  draw  ticks. 

TICKS  (TOP_TICK_MARK_START); 

SET_TEXT_ALIGNMENT  (CENTRE_CAP); 
SET  JIEXTCOLOUR  JNDEX  (RED); 
TICKS  (BOTTOM_TICK_MARK_START); 


—  Draw  the  title. 

SET_TEXT_COLOUR_INDEX  (BLACK); 
SET_TEXT_ALIGNMENT  (CENTRE_BOTTOM); 
TEXT  (TITLE  JDSITION,  "PRODUCTION  COST"); 


end  BORDER; 


procedure  DRAW  (DATA1  :  in  out  IRON_DATA; 

DATA2  :  in  out  IRON_DATA)  is 

FILLJNDEX  :  FILL_AREA JNDEX  :=  1 ; 

POSITION  :  WC. POINT; 

begin 


—  Draw  the  border. 
BORDER; 


-  Draw  the  black  bars. 

SET_FILL_AREA_COLOUR JNDEX  (BLACK); 
SET_TEXT_COLOUR JNDEX  (BLACK); 
SET_FELL_AREA_INDEX  (FILLJNDEX); 


Page  173 


Appendix  C 


Example  Programs 


for  I  in  1..6  loop 

POSITION. Y  :=  2.0  *  (WC_TYPE(I)-1.0)  +  1.6; 
--  Call  ihe  procedure  that  draws  the  bars 
BARS  (DAT A 1  (INTEGER(I)),  POSITION); 
end  loop; 

—  Draw  the  red  bars. 

SET_FILL_AREA_COLOUR  JNDEX  (RED); 
SET_TEXT_COLOUR_INDEX  (RED); 

FILL  JNDEX  :=  2; 

SET_FILL_AREA JNDEX  (FILL JNDEX); 
for  I  in  1..6  loop 

POSITION. Y  :=  2.0  *  (WCJTYPE(I)-l.O)  +  1.6; 
-  Call  the  procedure  that  draws  the  bars. 

BARS  (DATA2(INTEGER(I)),  POSITION); 
end  loop; 

end  DRAW; 


begin  -  Procedure  IRON. 


-  Open  GKS  and  activate  a  workstation. 

OPENJ3KS  (ERROR  JdLE); 

OPEN_WS  (MY_WS  JD,SOME_CONNECTION,SOME_OUTIN_TYPE); 
ACTI V ATE_W S  (MY_WS  JD); 


-  Specify  the  window  onto  chart. 

SET_WINDOW  (WINDOW_l,  WINDOW J.IMITS); 
SELECT_NORMALIZATION_TRANSFORMATION  (WINDOW_l); 


—  Define  the  colours  we'll  be  using. 
SET_COLOUR_REPRESENTATION 

SET_COLOUR_REPRESENTATION 

SET_COLOUR_REPRESENTATION 


(MY_WS  JD, 

INDEX  =>  WHITE, 

RGB  J20L0UR  =>(1.0,1.0,1.0)); 
(MY_WS  JD, 

INDEX  =>  BLACK, 
RGBCOLOUR  =>(0.0,0.(),0.0)); 
(MY_WS  JD, 

INDEX  =>  RED, 

RGBCOLOUR  =>(1.0,0.0,0.0)); 


-  Use  bundled  attributes  except  for  colour. 
SET_ASF  (ASF_SETTINGS); 
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-  Initialise  the  choice  device. 

INQ_CHOICE_DEVICE_STATE  (MYJWSJD,  CHOICE_DEVICE,  CHOICE_ERROR, 

CHOICE_MODE,  CHOICE_ECHO_S WITCH, 
INITIAL_STATUS,  INITIAL_CHOICE, 
CHOICE_ECHO_AREA,  CHOICE_RECORD); 

BUlLD_CHOICE_DATA_RECORD  (PROMPT_ECHO_TYPE,  CHOICE_STRINGS, 

CHOICE_RECORD); 

INITIALISE_CHOICE  (MY_WS_ID,  CHOICE_DEVICE,  INITIAL_STATUS, 

INITIAL_CHOICE,  CHOICE_ECHO_AREA,  CHOICE_RECORD); 


—  Get  the  user's  choice  (U.S.  ,  W.  GERMANY,  or  JAPAN), 
loop 

REQUEST_CHOICE  (MY_WS _ID,  CHOICE_DEVICE, 

INITIAL_STATUS,  CHOICE); 
if  INITIAL_STATUS  =  OK  then 
case  CHOICE  is 

when  1  =>  DRAW  (US_DATA_1  ,US_DATA_2); 

when  2  =>  DRAW  (GERMANY_DATA_1  ,GERMANY_DATA_2); 

when  3  =>  DRAW  (JAPAN_DATA_1,JAPAN_DATA_2); 

when  others  =>  exit; 
end  case; 
else 
exit; 
end  if; 
end  loop; 

—  Close  workstation  and  shut  down  GKS. 

DE ACTI V ATE_W S  (MY_WS_ID); 

CLOSE_WS  (MY_WS_ID); 

CLOSE_GKS; 


end  IRON; 
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C.3  Example  Program  3  :  MAP 

-  PROGRAM  MAP 

-  DESCRIPTION: 

This  program  reads  a  GKS  metafile  to  draw  a  map.  The  primitives  in  each  region  are  in  a 
separate  segment.  The  user  can  use  a  pick  device  to  select  the  various  regions.  A  sampled 

-  choice  device  determines  the  action  taken  with  the  selected  region. 

-  CONFORMANCE: 

GKS  Level:  lc 

The  implementation  must  support  at  least  on  workstation  of  the  category  OUTIN  and  one  of  the 
category  MI  (metafile  input).  The  default  choice  device  must  support  at  least  five  choices. 


with  GKS; 
with  GKS_TYPES; 


use  GKS; 

use  GKS_TYPES; 


procedure  METAFILE  is 


—  Define  the  Metafile  Workstation 


METAFILE  WS  ID 

constant  WS_ID 

:= 

1; 

METAFILE_CONNECTION 

constant  STRING 

;= 

"  METAFILE  _INPUT_FI  LE " ; 

METAFILE  TYPE 

constant  WS  TYPE 

:= 

2; 

METAFILE _ITEM  TYPE 

GKSMJTEMJTYPE; 

METAFILE  DATA  RECORD 

GKSM  DATA  RECORD; 

LENGTH,  MAX_LENGTH 

NATURAL 

:= 

500; 

-  Define  the  OUTIN  Workstation 

MY  WS  ID 

constant  WS_ID 

:= 

2; 

SOME  CONNECTION 

constant  STRING 

:= 

"UNIT, 

SOME  OUTIN  TYPE 

constant  WS  TYPE 

:= 

1; 

SOME  CHOICE  DEVICE 

constant  CHOICE  DEVICE  NUMBER 

:= 

1; 

CSTATUS 

CHOICE  STATUS; 

CHOICE  NUMBER 

CHOICEJV  ALUE; 

SOME  PICK  DEVICE 

constant  PICK  DEVICE_NUMBER 

:= 

1; 

PSTATUS 

PICK_REQUEST  STATUS; 

PICK 

PICKJD; 

SEGMENT 

SEGMENT  NAME; 

—  Define  the  Error  Logging  file. 

ERROR_FILE  :  constant  STRING  :=  "MY_ERROR_FILE"; 


begin 


—  Open  GKS  and  activate  workstations. 


OPEN_GKS 
OPEN_WS 
OPENWS 
ACTI V  ATE_  W  S 


(ERROR_FILE); 

(METAFILE_WS_ID,METAFILE_CONNECTION,METAFILE_TYPE); 

(MY_WS_ID,SOME_CONNECTION,SOME_OUTIN_TYPE); 

(MYJWSJD); 
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—  Set  the  choice  device  to  sample  mode. 

SET_CHOICE_MODE  (MY_WS_ID,  SOME_CHOICE_DEVICE,  SAMPLE^MODE,  NOECHO); 


—  Interpret  metafile  items  until  end  of  metafile  is  read. 


loop 

GET_ITEM_TYPE_FROM_GKS  M  (METAFILE_WS_ID,  METAFILE_1TEM_TYPE, 

LENGTH); 


if  METAFILE_ITEM_TYPE  =  0  Lhen 
exit; 
end  if; 

READ_ITEM_FROM_GKSM  (METAFILE_WS_ID,  MAX_LENGTH, 

METAFILE_DATA_RECORD); 

fNTERPRET_ITEM  (METAFILE_DATA_RECORD); 
end  loop; 

--  Close  the  Metafile  Workstation. 

CLOSE_WS  (MET AFILE_WS_I D); 


—  Allow  the  user  to  select  states  until  the  'exit'  choice. 


loop 

REQUEST_PICK  (MY_WS_ID,SOME_PICK_DEVICE,PSTATUS,SEGMENT,PICK); 
if  PSTATUS  =  OK  then 

SAMPLE_CHOICE  (MY_WS _ID,  SOME_CHOICE_DEVICE, 

CSTATUS,  CHOICE_NUMBER); 
if  CSTATUS  =  OK  then 


case  CHOICE_NUMBER  is 
when  1  =>  SET_HIGHLIGHTING 
when  2  =>  SET_HIGHLIGHTING 
when  3  =>  SET_VISIBILITY 
when  4  =>  SET_VISIBILITY 
when  others  =>  null; 
end  case; 
end  if; 
end  if; 
end  loop; 


(SEGMENT, HIGHLIGHTED); 
(SEGMENT  .NORMAL); 
(SEGMENT, INVISIBLE); 
(SEGMENT, VISIBLE); 


—  Close  Workstations  and  GKS. 


DEACTIVATE_WS  (MY_WS_ID); 
CLOSE_WS  (MY_WS_ID); 

CLOSE_GKS; 

end  METAFILE; 
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C.4  Example  Program  4  :  MANIPULATE 

-  PROGRAM  MANIPULATE 

-  DESCRIPTION: 

This  program  allows  the  user  to  create  an  object  and  then  manipulate  the 
object  by  changing  the  segment  transformation. 

-  CONFORMANCE: 

GKS  Level  2b 


with  GKS; 
with  GKS_TYPES; 


use  GKS; 

use  GKS_TYPES; 


procedure  POLYGON  is 

POINTS 
POINT_  1 
POINT_2 

POLYGON_SEGMENT 

SHIFT 

ZOOM 

ROTATE 

NEXT 

TRANSFORMATION 

TRANSFORMATION^ 

TRANSFORMATION_2 

RED 

AXIS_CHARACTER_HEIGHT 

CHOICE 

CHOICE_STATUS 

LOCATOR_STATUS 

MATRIX 

MATRIX_RESULT 


WC.POINT_ARR  A  Y(  1  ..500); 


WC. POINT  :=  (0. 6,0.4); 

WC. POINT  :=  (0.4,0. 3); 

SEGMENT_NAME  :=  1; 

constant  CHOICE_VALUE  :=  1; 

constant  CHOICE_VALUE  :=  2; 

constant  CHOICE_VALUE  :=  3; 

POSITIVE  :=  1; 


TRANSFORMATION_NUMBER; 
TRANSFORMATION_NUMBER; 
TRANSFORMATION_NUMBER; 
constant  COLOUR_INDEX  :=  2; 

constant  WC.MAGNITUDE  :=  0.02; 

CHOICE_V  ALUE; 
CHOICE_REQUEST_STATUS ; 
INPUT_STATUS; 
TRANSFORMATION_MATRIX; 
TRANSFORMATION_MATRIX; 


-  Define  the  workstation  variables  and  error  logging  file. 

DISPLAY  :  constant  WS_ID 

DISPLAY_CONNECTION  :  constant  STRING 

DISPLAY_TYPE  :  constant  WS_TYPE 

ERROR_FILE  :  constant  STRING 

-  Define  the  Segment  workstation  variables. 

SEGSTORE  :  constant  WS_ID 

SEG_CONNECTION  :  constant  STRING 

SEG_TYPE  :  constant  WS_TYPE 

-  Define  the  Plotter  workstation  variable. 


=  1; 

=  "DDDIS"; 

=  3; 

=  ”MY_ERROR_FILE"; 


=  2; 

=  "DDSEG"; 
=  4; 


PLOTTER 

PLOT_CONNECTION 

PLOTJTYPE 


constant  WS_ID  :=  6; 

constant  STRING  :=  "PLOT"; 

constant  WS_TYPE  :=  5; 
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—  Define  World  Coordinate  Window  and  other  attributes. 

WINDOW_BOUNDS  :  WC.RECTANGLE_LIMITS  := 

(XMIN  =>  0.0,  XMAX  =>  1.0, 
YMIN  =>  0.0,  YMAX  =>  1.0); 
VIEWPORT_BOUNDS  :  NDC.RECTANGLE_LIMITS  := 

(XMIN  =>  0.0,  XMAX  =>  1.0, 
YMIN  =>  0.0,  YMAX  =>  1.0); 
TEXT_POSITION  :  WC.POINT  :=  (0.5,0.5); 

begin 


-  Open  GKS  and  activate  a  workstation. 


OPEN_GKS 

OPEN_WS 

ACTIVATE_WS 
OPEN_WS 
ACTI V  ATE_W  S 
SET_WINDOW 
SET_VIEWPORT 

SET  VIEWPORT  INPUT  PRIORITY 


(ERROR_FILE); 

(DISPLAY,  DISPLAY_CONNECTION, 
DISPLAY_TYPE); 

(DISPLAY); 

(SEGSTORE,  SEG_CONNECTION,  SEG_TYPE); 
(SEGSTORE); 

(1  ,WINDOW_BOUNDS); 

( 1  ,VIEWPORT_BOUNDS); 

(1,0, HIGHER); 


--Construction  of  segment  POLYGON_SEGMENT. 

CREATE_SEGMENT  (POLY  G  ON_S  EG  MENT) ; 

SET_POLYLINE_INDEX  (3); 

REQUEST_LOCATOR  (DISPLAY,  1  ,LOCATOR_STATUS, 

TRANSFORMATION,  POINTS(NEXT)); 

SELECT_NORMALIZATION_TRANSFORMATION  (TRANSFORMATION,  1 ); 
loop 

NEXT:=NEXT+1; 

REQUEST_LOCATOR(DISPLAY,lDOCATOR_STATUS, 
TRANSFORMATION,POINTS(NEXT)); 
exit  when  LOCATOR_STATUS  =  NONE  or 
TRANSFORMATION  /=  TRANSFORMATION,  1  or 
NEXT  =  500; 
end  loop; 

POINTS(NEXT)  :=  POINTS(l); 

POLYLINE  (POINTS); 

CLOSE_SEGMENT; 

EVALUATE_TRANSFORMATION_MATRIX  (WC.POINT'((0.0,0.0)), 

WC.VECTOR'((0. 0,0.0)),  0.0,  (1.0,1. 0), 
MATRIX); 
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—  Initialise  transformation  matrix. 


loop 

REQUEST_CHOICE  (DISPLAY, l,CHOICE_STATUS,CHOICE); 

exit  when  CHOICE_STATUS  =  NONE  or  CHOICE_STATUS  =  NOCHOICE; 

case  CHOICE  is 

—  Shift  the  polygon  to  a  given  position, 
when  SHIFT  => 

REQUEST_LOC  ATOR  (DIS  PL  A  Y,  1  ,LOC  ATOR_S  TATUS , 

TRANS  FORM  ATION_2,POINT_  1 ) ; 
exit  when  LOCATOR_STATUS  =  NONE; 

REQUEST_LOCATOR  (DISPLAY, l,LOCATOR_STATUS, 
TRANSFORMATION  ,POINT_2); 
exit  when  LOCATOR_STATUS=NONE  or 
TRANSFORMATION  /=  TRANSFORMATION^; 

SELECT_NORMALIZATION_TRANSFORMATION(TRANSFORMATION_2); 

ACCUMULATE_TRANSFORMATION_MATRIX  ( 

SOURCE_TRANSFORMATION  =>  MATRIX, 

FIXED_POINT  =>  WC.POINT'((0.0,0.0)), 

SHIFT_VECTOR  => 

WC.VECTOR'(  (POINT_l.X  -  POINT_2.X,POINT_LY  -  POINT_2.Y)), 
ROTATION_ANGLE  =>  0.0, 

SCALE_FACTORS  =>  (1.0, 1.0), 

RESULT_TRANSFORMATION  =>  MATRIX_RESULT); 

SET_SEGMENT_TRANSFORMATION  ( 

POLYGON_SEGMENT,MATRIX_RESULT); 
when  ZOOM  =>  null; 

when  ROTATE  =>  null; 

when  others  =>  exit; 

end  case; 

UPDATE_WS  (DISPLAY, PERFORM); 
end  loop; 


—  Now  the  polygon  is  plotted. 

DEACTIVATEJWS  (DISPLAY); 

DE ACTI V ATE_W S  (SEGSTORE); 

OPENJWS  (PLOTTER,  PLOT_CONNECTION,  PLOT_TYPE); 
ACTI V ATE_W S  (PLOTTER); 


—  Set  up  representations  for  this  workstation. 

SET_COLOUR_REPRESENTATION  (PLOTTER, RED,(1.0, 0.0, 0.0)); 
SET_POLYLINE_REPRESENTATION  (PLOTTER, 3, 1,L5,RED); 
SET_TEXT_REPRESENTATION  (PLOTTER, 2,  (0,STRING  _PRECISION),  1.0,0.0,RED); 
SET_WS_VIEWPORT  (PLOTTER,  (0.0,  0.5,  0.0,  0.5)); 

COP Y_S EG M ENT_TO_W S  (PLOTTER,POLYGON_SEGMENT); 

SET_TEXT_INDEX  (2); 

S ET_C H AR__HEIG HT  (AXIS_CHARACTER_HEIGHT); 

TEXT  ((0.5,0. 5),  "This  is  a  polygon"); 

DEACTIVATE JWS  (PLOTTER); 

CLOSE_WS  (PLOTTER); 

CLOSE_WS  (DISPLAY); 

CLOSE  WS  (SEGSTORE); 

CLOSE_GKS; 
end  POLYGON; 
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C.5  Example  Program  5: 

-  PROGRAM  SHOYVLN 

-  DESCRIPTION: 

This  program  illustrates  the  available  linetypes  on  a  user  selected  workstation. 

It  contains  a  typical  GKS  initialization  routine  and  demonstrates  how  to  program 
subprograms  which  do  not  change  any  state  list  entries. 

-  CONFORMANCE: 

GKS  Level  Oa 


with  GKS_TYPES; 
with  GKS; 
with  TEXTJO; 
use  GKS_TYPES; 
use  GKS; 
use  TEXT_IO; 
procedure  SHOYVLN  is 

TYPE_OF_WS  :  WS_TYPE; 

ERROR _IND  :  ERROR_NUMBER  :=  0; 

WORKSTATION  :  WSJD  :=  1; 

OP_STATE  :  OPERATING_STATE; 

package  WS_TYPE_IO  is  new  INTEGER_IO  (WS_TYPE); 

procedure  INIT_GKS  (WTYPE  :  in  out  WS_TYPE; 

ERRIND  ;  in  out  ERROR_NUMBER)  is 


-  GKS  initialisation  sequence. 


ERROR_FILE 

GKS_WS_TYPES 

CATEGORY 

CONNECTION 

CONN_LENGTH 


constant  STRING  :=  ’SHOWLN_ERR_FILE'; 
WS_TYPES.LIST_OF; 

WS_CATEGORY; 

STRING  (1..20); 

NATURAL; 


begin 

OPEN_GKS  (ERROR_FILE); 


--  Inquire  available  workstation  types  and  print  them. 
INQ_LIST_OF_AVAILABLE_WS_TYPES  (ERRIND,  GKS_WS_TYPES); 
if  ERRIND  /=  0  then 
return; 
end  if; 


PUT_LINE  ("The  available  output  and  outin  workstation  types  are:”); 
for  I  in  l..WS_TYPES.SIZE_OF_LIST  (GKS_WS_TYPES)  loop 

inq_ws_category 

(WS_TYPES.LIST_ELEMENT  (I,  GKS_WS_TYPES),  ERRIND,  CATEGORY); 
if  (CATEGORY  =  OUTPUT  or  CATEGORY  =  OUTIN)  then 
WS_TYPE_IO.PUT  (WS_TYPES.LIST_ELEMENT  (I,  GKS_WS_TYPES)); 

PUT  (  "  "  ); 
end  if; 
end  loop; 

NEWJLINE; 
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—  Choose  one  workstation  to  open  and  activate. 


PUTJLINE  ("Please  enter  connection  identifier  and  workstation  type"); 

GET_LINE  (CONNECTION,  CONN_LENGTH); 

WS_TYPE_IO.GET  (WTYPE); 

OPEN_WS  (WORKSTATION,  CONNECTION  (l..CONN_LENGTH),  WTYPE); 

ACTI V  ATE_  W  S  (WORKSTATION); 


—  Check  the  operating  state  to  ensure  successful  opening  and  activation 
INQ_OPERATING_STATE_VALUE  (OP_STATE); 
if  OP_STATE  /=  WSAC  then 
ERRIND  :=  3; 
return; 
end  if; 

ERRIND  :=  0; 
end  INIT_GKS; 


procedure  LINE_DEMO  (WTYPE 

ERRIND 


in  out  WS_TYPE; 

in  out  ERROR_NUMER)  is 


STATUS 

REQ-WINDOW 

CUR_WfNDOW 

REQ_VIEWPORT 

CUR_VIEWPORT 

LINETYPEJLIST 

NUM_WIDTHS 

NOMINAL_WIDTH 

RANGE_OF_WIDTHS 

NUM_INDICES 

LIST_OF_ASF 

SAVED_XFORM_NUM 

SAVED_PRIM_ATTR 

S  A  VED_IND  V_ATTR 

DISTANCE 

PTS 


UPDATE_STATE; 

NDC  .RECTANG  LE_LIMITS ; 
NDC.RECTANGLE_LIMITS; 
DC.RECTANGLE_LIMITS; 
DC.RECTANGLE_LIMITS; 
LINETYPES.LIST  _OF; 

NATURAL; 

DC. MAGNITUDE; 

DC.RANGE_OF_MAGNITUTES; 

NATURAL; 

ASF_LIST  :=  (others  =>  INDIVIDUAL); 
TRANSFORMATION_NUMBER; 
PRIMITIVE_ATTRIBUTE_VALUES; 
INDIVIDUAL_ATTRIBUTE_  VALUES 
NDC_TYPE; 

WC.POINT_ARRAY  (1..2); 


begin 

-  Check  the  operating  state. 


INQ_OPERATING_STATE_VALUE  (OP_STATE); 
if  (OP-STATE  /=  WSAC  and  OP_STATE  /=  SGOP)  then 
ERRIND  :=  5; 
return; 
end  if; 


—  Inquire  workstation  transformation. 


INQ_WS_TRANSFORMATION  (WORKSTATION,  ERRIND,  STATUS, 

R  EQ_W  IN  DO  W ,  CUR_WINDOW, 
REQ_VIEWPORT,  CUR_VIEWPORT); 
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if  ERRIND  /=  0  then 
return; 
end  if; 


—  Inquire  polyline  facilities. 

INQPOLYLINEFACITIIES  (WS_TYPE,  ERRIND,  LINETYPE_LIST, 

NUMJWIDTHS,  NOMINAL_WIDTH, 
NOMINALJWIDTH,  RANGE_OF_WIDTHS, 
NUMJNDICES); 


if  ERRIND  /=  0  then 
return; 
end  if; 

inq_current_normalization_transformation_number 

(ERRIND,  SAVED_PRIM_ATTR); 
INQ_CURRENT_INDIVIDUAL_ATTRIBUTE_VALUES 

(ERRIND,  S A VE_INDV_ATTR) ; 


—  Set  unity  normalization  transformation  number,  individual  aspect 

—  source  flags,  linewidth  scale  factor  (1.0),  polyline  colour  index  (1) 

—  and  reasonable  text  attributes. 

SELECT_NORMALIZATION_TRANSFORMATION  (0); 

SET_ASF  (LIST_OF_ASF); 

SET_LINEWIDTH_SCALE_FACTOR  (1.0); 
SET_POLYLINE_COLOUR_INDEX  (1); 

SET_CHAR_UP_ VECTOR  ( (0.0, 1.0) ); 

SET_TEXT_PATH  (RIGHT); 

SET_TEXT_ALIGNMENT(  (LEFT,  HALF) ); 

SET_TEXT_FONT_AND_PRECISION  ((1,  STRING_PRECISION)  ); 
SET_CHAR_EXPANSION_FACTOR  (1.0); 

SET_CHAR_SPACING  (0.0); 

SET_TEXT_COLOUR_INDEX  (1); 


—  Compute  the  distance  between  lines. 

DISTANCE  :=  (CUR_WINDOW.YMAX  -  CUR_WINDOW.YMIN)  / 

NDC_TYPE  (LINETYPES.SIZE_OF_LIST  (LINETYPE_LIST)  ); 


—  Set  the  character  height  to  half  of  the  distance  between  the  lines,  but  not 

—  more  than  l/20th  of  the  height  of  the  current  workstation  window. 

if  (DISTANCE/2.0)  <  ( (CUR_WINDOW.YMAX  -  CUR_WINDOW.YMIN)  /  20.0 
then  SET_CHAR_HEIGHT  (WC. MAGNITUDE  (DISTANCE/2.0) ); 
else 

SET_CHAR_HEIGHT 

(WC. MAGNITUDE  ( (CUR_WINDOW.YMAX  -  CUR_WINDOW.YMIN)  /  20.0) ); 
end  if; 


—  Lines  stretch  from  the  left  bound  to  the  middle  of  the  current  workstation  window. 


PTS  (1).X 
PTS  (1).Y 
PTS  (2).X 


WC_TYPE  (CUR_WINDOW.XMIN); 

WC_TYPE  (CUR_WINDOW.YMAX  -  DISTANCE/2.0); 

WC_TYPE  (CUR_WINDOW.XMIN  +  CUR_WINDOW.XMAX  /  2.0); 
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—  Loop  over  the  available  linotypes. 


for  I  in  1 . .LINETYPES .S IZE_OF JLIST  (LINETYPE  JJST)  loop 
SET_LINETYPE  (LINETYPES. LIST_ELEMENT  (I,  LINETYPE  JJST) ); 
PTS  (2).Y  :=  PTS  (1).Y; 

POLYLINE  (PTS); 

PTS  (1).Y  :=  PTS  (1).Y  -  WCJTYPE  (DISTANCE); 


—  Annotate  the  linetype. 

TEXT  (PTS(2),  INTEGER’IMAGE  (INTEGER  ( 

LINETYPES.LIST_ELEMENT  (I,  LINETYPE. LIST  )  )  )  ); 
end  loop; 


-  Restore  normalization  transformation  number  and  attributes. 

SELECT_NORMALIZATION_TRANSFORMATION  (0); 

SET_ASF  (SAVEDJNDV_ATTR.ASF); 

SET_LINEWIDTH_SCALE_FACTOR  (SAVED_INDV_ATTR. WIDTH); 
SET_POLYLINE_COLOURJNDEX  (SAVED_INDV_ATTR.LINE_COLOUR); 

SET  CHAR  UP_VECTOR  (SAVED_PRIM_ATTR.CHAR_UP_VECTOR); 
SET_TEXT_PATH  (SAVED_PRIM_ATTR.PATH); 

SET_TEXT_ALIGNMENT  (SAVED  J>RIM_ATTR.ALIGHMENT); 

S ET_TLX T_FONT_ AN D_PREC I S ION  (SAVED  JNDV_ATTR.FONTJ’RECISION); 
SET_CHAR_EXPANSION_FACTOR  (SAVED_INDV_ATTR.EXPANSION); 
SETJL’HARSPACING  (S A VED_INDV_ATTR. SPACING); 
SETJTEXTJEOLOURJNDEX  (SAVED _INDV_ATTR.TEXT_COLOUR); 


ERRIND  :=  0; 
end  LINE_DEMO; 


—  Main  Procedure  SHOWLN. 


begin 

--  Call  the  initialization  routine. 

INIT_GKS  (TYPE_OF_WS,  ERRORJND) 
if  ERRORJND  =  0  then 

-  Call  the  demonstration  subporgram  for  linetype  capabilities 
LINE_DEMO  (TYPE_OF_WS,  ERRORJND); 
end  if; 

-  Close  everything. 

EMERGENCY_CLOSE_GKS; 
end  SHOWLN; 
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GKS  Multi-Tasking 

(This  Appendix  does  not  form  an  integral  part  of  this  standard  but  provides  additional  information.) 

The  binding  of  GKS  functions  as  subprograms  in  an  Ada  package  has  a  straight-forward  implementation:  GKS 
"state"  data  are  declared  as  variables  local  to  the  package  body,  and  they  are  directly  accessed  and  updated  by  the  bodies 
of  the  GKS  subprograms.  This  approach  will  work  when  application  programs  use  only  sequential  control 
structures,  the  problem  is  that  concurrent  calls  on  GKS  subprograms  may  cause  a  state  variable  to  be  corrupted;  e.g., 
by  simultaneous  attempts  to  write  to  it.  This  problem  exists  whether  the  concurrency  is  actual  (with  multiple 
processors)  or  simulated  (via  multiplexed  execution  on  a  single  processor). 

There  is  an  implementation  technique  that  overcomes  this  problem  without  changing  the  GKS  interface  as  seen  by 
the  Ada  application  program.  In  short,  the  idea  is  to  protect  the  package  body  data  (i.e.,  the  state  variables)  by 
localizing  them  to  a  task  contained  in  the  package  body.  For  each  subprogram  that  accesses  the  data,  there  will  be  a 
corresponding  entry  declared  in  the  task.  The  same  name  can  be  used  for  the  entry  and  the  subprogram,  taking 
advantage  of  Ada's  overloading  facility.  The  task  body  takes  the  form  of  a  "monitor"  —  i.e.,  a  loop  containing  a 
selective  wait  with  an  accept  branch  for  each  entry'.  The  accept  statement  performs  the  actual  reading  or  writing  of 
the  state  information  as  required  by  the  corresponding  GKS  subprogram.  The  body  of  each  GKS  subprogram 
comprises  simply  a  call  of  the  identically  named  task  entry.  Thus,  even  if  two  tasks  from  a  user  application 
program  concurrently  call  subprograms  that  update  or  access  state  variables,  these  will  result  in  entry  calls  that  are 
queued  in  first  come  /  first  served  fashion.  There  is  no  danger  of  corrupting  the  state  variables. 

To  illustrate  this  technique,  the  following  example  shows  how  a  skeletal  version  of  the  GKS  package  might  be 
written. 

with  GKS_TYPES; 
use  GKS_TYPES; 
package  GKS  is 

procedure  OPEN_GKS 

(ERROR_FILE  :  in  STRING  :=  DEFAULT_ERROR_FILE; 

AMOUNT_OF_MEMORY  :  in  NATURAL  :=  DEFAULT_MEMORY_UNITS); 

procedure  OPENJWS 

(WS  :  in  WS_ID; 

CONNECTION  :  in  STRING; 

TYPE_OF_WS  :  in  WS_TYPE); 

procedure  CLOSE_GKS; 


end  GKS; 


—  Version  for  sequential  application  programs: 

with  ERROR_HANDLENG; 
package  body  GKS  is 


-  State  variables: 

CURRENT_OPERATING_STATE  :  OPERATING_STATE  :=  GKCL; 
SET_OF_OPEN_WORKSTATIONS  :  WS_IDS.LIST_OF  :=  WS_IDS.NULL_LIST; 
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procedure  OPEN_GKS 

(ERROR_FILE  :  in  STRING  :=  DEFAULT_ERROR_FILE; 

A MOUNT_OF_MEMOR Y  :  in  NATURAL  :=  DEFAULT_MEMORY_UNITS)  is 
begin 


if  CURRENT_OPERATING_STATE  /=  GKCL  then 
ERROR_HANDLING  (1,  "OPEN_GKS"); 

else 

CURRENT_OPERATING_STATE  :=  GKOP; 
end  if; 


end  OPEN_GKS; 
procedure  OPEN_WS 

(WS  :  in  WS_ID; 

CONNECTION  :  in  STRING; 

TYPE_OF_WS  :  in  WS_TYPE)  is 

begin 


if  CURRENT_OPER ATING_ST ATE  not  in  GKOP  ..  SGOP  then 
ERROR_HANDLING  (8,  ”OPEN_WS"); 

else 

CURRENT_OPERATING_STATE  ;=  WSOP; 
WS_IDS.ADD_TO_LIST  (WS,  SET_OF_OPEN_WORKSTATIONS); 
end  if; 


end  OPEN_WS; 

procedure  CLOSE_GKS  is 
begin 


if  CURRENT_OPER ATING_ST ATE  /=  GKOP  then 
ERROR_HANDLING  (2,  "CLOSE_GKS"); 

else 

CURRENT_OPERATING_STATE  :=  GKCL; 
end  if; 


end  CLOSE_GKS; 


end  GKS; 


Page  186 


Appendix  D 


CKS  Multitasking 


—  Version  for  application  programs  that  use  tasking: 

with  ERROR_HANDLING; 
package  body  GKS  is 


task  MONITOR  is 
entry  OPEN_GKS 

(ERROR_FILE  :  in  STRING  :=  DEFAULT_ERROR_FILE; 

AMOUNT_OF_MEMORY  :  in  NATURAE  :=  DEFAUET_MEMORY_UNITS); 


entry  OPEN_WS 
(WS 

CONNECTION 

TYPE_OF_WS 


:  in  WS_ID; 

:  in  STRING; 

:  in  WS_TYPE); 


entry  CLOSEJ3KS; 


end  MONITOR; 


task  body  MONITOR  is 


—  State  variables: 

CURRENT_OPERATING_STATE  :  OPER ATING_ST ATE 

SET_OF_OPEN_WORKSTATIONS  :  WS_IDS.LIST_OF 


:=  GKCL; 

:=  WS_IDS.NULL_LIST; 


begin 

loop 

begin 

select 

accept  OPEN_GKS 

(ERROR_FILE  :  in  STRING  :=  DEFAULT_ERROR_FILE; 

AMOUNT_OF_MEMORY  :  in  NATURAL  :=  DEFAULT_MEMORY_UNITS)  do 


if  CURRENT_OPERATING_STATE  /=  GKCL  then 
ERROR_HANDLING  (1,  "OPEN_GKS"); 
else 

CURRENT_OPERATING_ST ATE  :=  GKOP; 
end  if; 


end  OPEN_GKS; 

accept  OPEN_WS 
(WS  :  in  WS_ID; 

CONNECTION  :  in  STRING; 

TYPE_OF_WS  :  in  WS_TYPE)  do 


if  CURRENT_OPERATING_STATE  not  in  GKOP  ..  SGOP  then 
ERROR_HANDLING  (8,  "OPEN_WS"); 
else 

CURRENT_OPERATING_STATE  :=  WSOP; 
WS_IDS.ADD_TO_LIST  (WS,  SET_OF_OPEN_WORKSTATIONS); 
end  if; 
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end  OPEN_WS; 
or 

accept  CLOSE_GKS  do 


if  CURRENT_OPERATING_STATE  /=  GKOP  then 
ERROR_HANDLING  (2,  "CLOSEJ3KS"); 
else 

CURRENT_OPER ATING_ST ATE  :=  GKCL; 
end  if; 


end  CLOSE_GKS; 


or 

terminate; 
end  select; 
exception 

when  others  =>  null; 

end; 
end  loop; 
end  MONITOR; 

procedure  OPEN_GKS 

(ERROR_FILE  :  in  STRING  :=  DEFAULT_ERROR_FILE; 

AMOUNT_OF_MEMOR Y  :  in  NATURAL  :=  DEFAULT_MEMORY_UNITS)  is 

begin 

MONITOR.OPEN  GKS  (ERROR_FILE,  AMOUNT_OF_MEMORY); 
end  OPEN_GKS; 

procedure  OPEN_WS 

(WS  :  in  WS_ID; 

CONNECTION  :  in  STRING; 

TYPE_OF_WS  :  in  WS_TYPE)  is 
begin 

MON ITOR . OPEN_W S  (WS,  CONNECION,  TYPE_OF_WS); 
end  OPEN_WS; 

procedure  CLOSE_GKS  is 
begin 

MONITOR. CLOSE_GKS; 
end  CLOSEGKS; 


end  GKS; 


Some  comments  on  the  interactions  with  exception  handling  in  the  case  where  the  ERROR_HANDLING  procedure 
raises  GKS_ERROR:  note  that  in  both  versions  of  the  package  body,  the  ERROR_HANDLING  procedure  is  called. 
Suppose  that  the  application  program  calls  OPEN_GKS  when  GKS  is  already  open.  In  the  sequential  version, 
calling  ERROR_HANDLING  from  the  body  of  OPEN_GKS  procedure  will  cause  GKS_ERROR  to  be  propagated 
back  to  the  application  program  that  called  OPEN_GKS.  In  the  tasking  version,  the  same  effect  is  achieved,  in  the 
following  fashion.  During  execution  of  the  MONITOR  task's  accept  statement  for  the  OPEN_GKS  entry, 
ERROR_HANDLING  will  be  called  and  GKS_ERROR  will  be  raised.  By  Ada  semantics,  since  this  exception  is 


Page  188 


Appendix  D 


GKS  Multitasking 


not  handled  by  a  local  handler  in  the  accept,  it  is  propagated  both  (1)  to  the  point  following  the  accept,  and  (2)  to  the 
point  of  the  entry  call.  For  (1),  it  is  handled  in  the  block  enclosing  the  select  statement;  thus  the  MONITOR  task 
can  continue  the  next  iteration  of  the  loop  without  disruption.  For  (2),  note  that  this  point  is  in  the  body  of  the 
OPEN_GKS  procedure.  Since  there  is  no  exception  handler  here,  GKS_ERROR  is  propagated  (as  desired)  back  to 
the  call  in  the  application  program. 

Termination  of  the  MONITOR  task  will  be  accomplished  by  selection  of  the  terminate  alternative  when  the 
application  program's  tasks  have  completed. 

There  are  a  number  of  variations  on  the  technique  discussed  and  illustrated  above  that  a  GKS  implementor  may 
consider  in  the  interest  of  increasing  the  potential  for  parallelism  in  GKS  application  programs  that  use  tasking. 
With  the  method  just  outlined,  the  entire  set  of  state  variables  is  protected  by  one  task.  If  the  state  information  can 
be  partitioned  into  independent  sets,  with  one  monitor  task  per  set,  then  an  application  program  task  that  reads  / 
writes  a  variable  in  one  set  can  do  so  concurrently  with  a  task  that  reading/writing  a  variable  in  another  set.  The 
GKS  implementor  should  consider  the  trade-offs. 

Another  variation  on  the  protection  of  state  variables  is  to  distinguish  between  GKS  functions  that  simply  read  data 
values  and  those  that  write  them.  The  technique  outlined  above  treats  readers  and  writers  in  the  same  way;  thus  it 
prohibits  two  tasks  in  an  application  program  from  simultaneously  reading  state  information.  It  is  possible  for  the 
GKS  implementor  to  program  the  monitor  task  in  such  a  way  that  concurrent  reading  by  application  program  tasks 
is  permitted,  but  that  neither  concurrent  writing  nor  concurrent  reading  and  writing  can  occur.  There  are  many 
different  approaches  to  this  problem,  depending  on  whether  the  implementor  takes  into  account  such  factors  as: 

o  the  possibility  of  an  application  task  being  aborted,  and 

o  the  possibility  of  an  application  task  being  "starved"  for  service  because  of  the  way 
that  the  entry  accepts  are  programmed. 

An  implementation  of  GKS  that  supports  multitasking  Ada  programs  can  still  be  used  for  programs  that  are  purely 
sequential,  though  efficiency  may  be  impaired.  An  implementor  may  wish  to  provide  two  bodies  for  the  GKS 
package  —  one  for  use  with  sequential  applications,  and  the  other  for  tasking.  The  practicality  of  this  scheme 
depends  on  the  sophistication  of  the  Ada  library  manager  and  perhaps  also  the  binder. 
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(This  Appendix  does  not  form  an  integral  part  of  the  standard  but  provides  additional  information.) 

This  Appendix  provides  clarification  of  the  relationship  between  a  GKSM  metafile  and  the  GKS/Ada 
subprograms  for  Generalized  Drawing  Primitives  (GDP)  and  ESCAPE  (ESC)  functions.  Each  GDP  and 
ESC  function  registered  is  available  to  the  application  program  as  an  individual  procedure  with  its  own 
formal  parameters  and  subprogram  name  as  described  in  5.1  in  this  binding. 

The  GKS/Ada  implementation  should  provide  the  ability  to  write  or  read  a  registered  GDP  or  ESCAPE  to  a 
metafile  even  though  that  GKS/Ada  implementation  does  not  support  the  GDP  or  ESCAPE  function.  The 
data  record  format  for  registered  GDPs  and  ESCAPES  must  therefore  be  available  between  implementations 
in  order  for  this  ability  to  be  supported. 

For  example,  consider  that  a  metafile  "A"  is  generated  on  a  GKS/Ada  implementation  which  supports  the 
GDP  for  circle.  Metafile  "A"  now  has  a  GKSM_DATA_RECORD  containing  the  GDP  circle  identifier, 
center  point  and  radius.  Then  metafile  "A"  is  sent  to  another  site  having  a  GKS/Ada  implementation  which 
does  not  support  circle  GDP's.  At  the  new  site  a  new  metafile  "B"  will  be  generated  containing  all  the 
contents  of  metafile  "A"  as  well  as  additional  graphics  data.  It  is  critical  that  the  circle  GDP  from  metafile 
"A"  be  included  into  metafile  "B"  even  though  none  of  the  workstations  at  the  site  will  be  able  to  generate 
the  circle  for  display. 

To  illustrate  the  technique,  the  following  example  shows  an  application  code  fragment  and  a  GKS/Ada 
implementation  of  the  INTERPRET_ITEM  metafile  function. 

with  GKS; 
use  GKS; 
with  GKS_TYPES; 
use  GKS_TYPES; 


-  This  application  program  transfers  data  from  metafile  "A"  to  metafile  "B" 
procedure  TRANSFER_METAFILE  is 


-  Declare  variables  here. 


INPUT_MET  AFILE 
OUTPUT_MET  AFILE 

INPUT_MET  AFILE_T  YPE 
OUTPUT_METAFILE_TYPE 


:  constant  WS_ID  :=  1; 
:  constant  WS_ID  :=  2; 

:  constant  WS_TYPE  :=  2; 
:  constant  WS_TYPE  :=  3; 


INPUT_METAFILE_CONNECTION_ID  :  constant  STRING 

OUTPUT_METAFILE_CONNECTIONJD  :  constant  STRING 


:=  ”METAFILE_A"; 
:=  "METAFILES"; 


MET  AFILE_D  AT  A_RECORD 
METAFILE_ITEM_TYPE 
LENGTH,  MAX_LENGTH 


GKSM_DATA_RECORD; 
GKSM_ITEM_TYPE; 
NATURAL  :=  500; 


ERROR_FILE 


:  constant  STRING  :=  "MY_ERROR_FILE"; 
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begin 

—  Open  GKS. 

OPEN_GKS  (ERROR_FILE); 

—  Open  both  input  and  output  metafiles. 

OPEN_W  S  (INPUT_MET  AFILE, 

INPUT_MET  AFILE_CONNECTION_I  D , 

INPUT_MET  AFI  LE_T  Y  PE) ; 

OPEN_WS  (OUTPUT_MET  AFILE, 

OUTPUT_METAFILE_CONNECTION_ID, 

OUTPUT_MET  AFILE_T  YPE) ; 

—  Only  output  metafiles  are  activated. 

ACTI V ATE_ W S  (OUTPUT_METAFILE); 

—  In  this  loop  every  element  of  Metafile  "A"  is  read,  and  passed  to  GKS  through  the 

—  INTERPRETJTEM  function  call.  Remember  that  metafile  "A"  contains  a  circle  GDP 

—  which  will  be  handled  by  the  INTERPRETJTEM  example  which  will  follow  shortly. 

loop 

GET_ITEM_TYPE_FROM_GKSM  (INPUT_MET AFILE,  METAFILE_ITEM_TYPE, 

LENGTH); 

if  METAFILE_ITEM_TYPE  =  0  then 
--  exit  the  loop,  the  metafile  is  empty, 
exit; 
end  if; 

READ_ITEM_FROM_GKSM  (INPUT_MET AFILE,  MAX_LENGTH, 

MET  AFILE_D  AT  A  ^RECORD) ; 

INTERPRETJTEM  (MET AFILE_D AT A_RECOR D) ; 
end  loop; 

—  Only  output  metafiles  are  deactivated. 

DE ACTI V ATE_W S  (OUTPUT JvlET  AFILE); 

—  Close  both  the  input  and  output  metafiles. 

CLOSE_WS  (INPUT_MET AFILE); 

CLOSE_WS  (OUTPUT_METAFILE); 

—  Close  GKS. 

CLOSEJ3KS; 

end  TRANSFER_MET AFILE; 
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The  example  application  program  relies  on  the  GKS/Ada  implementation  of  the  INTERPRETJTEM 
function  to  recognize  the  circle  GDP  and  pass  the  GDP  to  the  output  metafile.  This  could  easily  be  done  in 
the  following  code  segment. 

Let  us  assume  that  the  private  type  GKSM_DATA_RECORD  is  declared  as  a  discriminant  record  type  with 
different  components  based  on  the  type  of  item.  When  the  GKSM_DATA_RECORD  contains  a  GDP, 
several  fields  exist  containing  all  the  available  information  about  the  GDP. 

type  GKSM_DATA_RECORD  (TYPE_OFJTEM  :  G K S M_ITEM_T YPE  :=  0; 

LENGTH  :  NATURAL  :=  0)  is 

record 

case  TYPE  J3FJTEM  is 
when  OPENJ3KS  =>  ... 
when  POLYLINE  =>  ... 
when  GDP  => 

ID  :  GDPJD; 

NUM_PTS  :  POSITIVE; 

INTEGER_DATA_LENGTH  :  NATURAL; 

REAL_DATA_LENGTH  :  NATURAL; 

LIST_OF_POINTS  :  WC.POINT_ARRAY  (l..NUM_PTS); 

INTEGER_DATA  :  INTEGER, ARRAY 

(1  ..INTEGER  JDATAJJENGTH); 

REALJDATA  :  REAL_ARRAY  (l..REAL_DATA_LENGTH); 

when  ... 
end  case; 
end  record; 

—  Example  of  how  an  implementation  could  handle  the  transfer  of  an  unsupported  GDP 
--  through  the  INTERPRET_ITEM  function. 

procedure  INTERPRETJTEM  ( ITEM  :  in  GKSM_DATA_RECORD)  is 
REGISTERED_GDP_CIRCLE  :  constant  GDPJD  :=  1; 
begin 

case  ITEM.TYPE_OFJTEM  is 
when  OPEN_GKS  =>  ... 

when  POLYLINE  =>  ... 

when  GDP  => 

case  ITEM. ID  is 

when  REGISTERED_GDP_SPLINE  =>  ... 
when  REGISTERED_GDP_ELLIPSE  =>  ... 
when  REGISTERED  J3DPJJRCLE  => 

—  call  the  metafile  generator  here  with  the  ITEM  data  record  as  the  parameter  to  be 

—  written  to  all  open  and  active  metafiles 
when  ... 

end  case; 
end  case; 

end  INTERPRETJTEM; 
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(This  Appendix  does  not  form  an  integral  part  of  the  standard,  but  provides  additional  information.) 

The  GET  ITEM  TYPE  FROM  GKSM  function  returns  the  type  of  the  next  metafile  item;  however,  the  value 
of  this  type  may  vary  depending  on  the  metafile  implementation.  In  order  to  allow  application  programs  to 
be  written  in  a  manner  which  is  independent  of  the  metafile  implementation,  the  following  Ada  names  are 
suggested.  The  implementation  should  define  these  names  with  values  which  match  the  values  returned  by 
the  GET  ITEM  TYPE  FROM  GKSM  procedure. 


GKSM  Item  Type 


Ada  Name 


ASPECT  SOURCE  FLAGS 
CELL  ARRAY 

CHARACTER  EXPANSION  FACTOR 

CHARACTER  SPACING 

CHARACTER  VECTORS 

CLEAR  WORKSTATION 

CLIPPING  RECTANGLE 

CLOSE  SEGMENT 

COLOUR  REPRESENTATION 

CREATE  SEGMENT 

DEFERRAL  STATE 

DELETE  SEGMENT 

END  ITEM 

ESCAPE 

FILL  AREA 

FILL  AREA  COLOUR  INDEX 

FILL  AREA  INDEX 

FILL  AREA  INTERIOR  STYLE 

FILL  AREA  REPRESENTATION 

FILL  AREA  STYLE  INDEX 

GENERALIZED  DRAWING  PRIMITIVE 

LINETYPE 

LINEWIDTH  SCALE  FACTOR 
MARKER  SIZE  SCALE  FACTOR 
MARKER  TYPE 
MESSAGE 

PATTERN  REFERENCE  POINT 
PATTERN  REPRESENTATION 
PATTERN  VECTORS 
PICK  IDENTIFIER 
POLYLINE 

POLYLINE  COLOUR  INDEX 
POLYLINE  INDEX 


GKSM_ASF 

GKSM_CELL_ARRAY 

GKSM_CHAR_EXPANSION_FACTOR 

GKSM_CHAR_S  PACING 

GKSM_CHAR_VECTORS 

GKSM_CLEAR_WS 

GKSM_CLIPPING_RECTANGLE 

GKSM_CLOSE_SEG  MENT 

GKSM_COLOUR_REPRESENTATION 

GKS  M_CREATE_SEG  MENT 

GKSM_DEFERRAL_STATE 

GKS  M_DELETE_SEG  MENT 

GKSM_END_ITEM 

GKSM_ESCAPE 

GKSM_FILL_AREA 

GKSM_FILL_AREA_COLOUR_INDEX 

GKSM_FILL_AREA_INDEX 

GKSM_FILL_AREA_INTERIOR_STYLE 

GKSMJFILL_AREA_REPRESENTATION 

GKSM_FILL_AREA_STYLE_INDEX 

GKSM_GDP 

GKSM_LINETYPE 

GKSM_LINEWIDTH_SCALE_FACTOR 

GKSM_MARKER_SIZE_SCALE_FACTOR 

GKSM_MARKER_TYPE 

GKSM_MESSAGE 

GKSM_PATTERN_REFERENCE_POINT 

GKSM_PATTERN_REPRESENTATION 

GKSM_PATTERN_  VECTORS 

GKSM_PICK_ID 

GKSM_POLYLINE 

GKSM_POLYLINE_COLOUR_INDEX 

GKSM_POLYLINE_INDEX 
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GKSM  Item  Type 


Ada  Name 


POLYLINE  REPRESENTATION 
POLYMARKER 

POLYMARKER  REPRESENTATION 

POLYMARKER  COLOUR  INDEX 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION 

RENAME  SEGMENT 

SET  DETECTABILITY 

SET  HIGHLIGHTING 

SET  SEGMENT  PRIORITY 

SET  SEGMENT  TRANSFORMATION 

SET  VISBILITY 

TEXT 

TEXT  ALIGNMENT 
TEXT  COLOUR  INDEX 
TEXT  FONT  AND  PRECISION 
TEXT  INDEX 
TEXT  PATH 

TEXT  REPRESENTATION 
UPDATE  WORKSTATION 
USER  ITEM 

WORKSTATION  VIEWPORT 
WORKSTATION  WINDOW 


GKSM_POLYLINE_REPRESENTATION 

G  KS  M_POL  Y  MAR  KER 

G  KS  M_POL  YM  ARKER_REPRE  S  ENT  ATION 

GKSM_POLYMARKER_COLOUR_INDEX 

GKSM_REDRAW_ALL_SEGMENTS_WS 

GKSM_RENAME_SEGMENT 

GKSM_SET_DETECTABILITY 

GKSM_SET_HIGHLIGHTING 

GKSM_SET_SEGMENT_PRIORITY 

GKSM_SET_SEGMENT_TRANSFORMATION 

G  KS  M_S  ET_V  IS  I B ILIT  Y 

GKSM_TEXT 

GKSM_TEXT_ALIGNMENT 

GKSM_TEXT_COLOUR_INDEX 

G  KS  M_TEXT_FONT_  AND_PRECIS  ION 

GKSM_TEXT_INDEX 

GKSM_TEXT_PATH 

GKSM_TEXT_REPRESENT ATION 

G  K  S  M_UPD  ATE_  W  S 

GKSM_USER_ITEM 

GKSM_WS_VIEWPORT 

GKSMJWS_WINDOW 
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(This  Appendix  does  not  form  an  integral  part  of  this  standard.) 

Control  Functions  .  58 

OPEN  GKS .  58 

CLOSE  GKS .  58 

OPEN  WORKSTATION .  58 

CLOSE  WORKSTATION .  58 

ACTIVATE  WORKSTATION .  58 

DEACTIVATE  WORKSTATION .  58 

CLEAR  WORKSTATION .  58 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION .  59 

UPDATE  WORKSTATION .  59 

SET  DEFERRAL  STATE .  59 

MESSAGE .  59 

ESCAPE .  60 

Output  Functions .  61 

POLYLINE .  61 

POLYMARKER .  61 

TEXT .  61 

FILL  ARE  A .  61 

CELL  ARRAY .  61 

GENERALIZED  DRAWING  PRIMITIVE .  62 

Output  Attributes .  63 

SET  POLYLINE  INDEX .  63 

SET  LINETYPE .  63 

SET  LINEWIDTH  SCALE  FACTOR .  63 

SET  POLYLINE  COLOUR  INDEX .  63 

SET  POLYMARKER  INDEX .  63 

SET  MARKER  TYPE .  63 

SET  MARKER  SIZE  SCALE  FACTOR .  63 

SET  POLYMARKER  COLOUR  INDEX .  63 

SET  TEXT  INDEX .  64 

SET  TEXT  FONT  AND  PRECISION .  64 

SET  CHARACTER  EXPANSION  FACTOR .  64 

SET  CHARACTER  SPACING .  64 

SET  TEXT  COLOUR  INDEX .  64 

SET  CHARACTER  HEIGHT .  64 

SET  CHARACTER  UP  VECTOR .  64 

SET  TEXT  PATH .  64 

SET  TEXT  ALIGNMENT .  65 

SET  FILL  AREA  INDEX .  65 

SET  FILL  AREA  INTERIOR  STYLE .  65 

SET  FILL  AREA  STYLE  INDEX .  65 

SET  FILL  AREA  COLOUR  INDEX .  65 

SET  PATTERN  SIZE .  65 

SET  PATTERN  REFERENCE  POINT .  65 

SET  ASPECT  SOURCE  FLAGS .  65 

SET  PICK  IDENTIFIER .  66 

SET  POLYLINE  REPRESENTATION .  66 

SET  POLYMARKER  REPRESENTATION .  66 
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SET  TEXT  REPRESENTATION .  66 

SET  FILL  AREA  REPRESENTATION .  66 

SET  PATTERN  REPRESENTATION .  67 

SET  COLOUR  REPRESENTATION .  67 

Transformation  Functions .  68 

SET  WINDOW .  68 

SET  VIEWPORT .  68 

SET  VIEWPORT  INPUT  PRIORITY .  68 

SELECT  NORMALIZATION  TRANSFORMATION .  68 

SET  CLIPPING  INDICATOR .  68 

SET  WORKSTATION  WINDOW .  68 

SET  WORKSTATION  VIEWPORT .  68 

Segment  Functions .  69 

CREATE  SEGMENT .  69 

CLOSE  SEGMENT .  69 

RENAME  SEGMENT .  69 

DELETE  SEGMENT .  69 

DELETE  SEGMENT  FROM  WORKSTATION .  69 

COPY  SEGMENT  TO  WORKSTATION .  69 

INSERT  SEGMENT .  70 

SET  SEGMENT  TRANSFORMATION .  70 

SET  VISIBILITY .  70 

SET  HIGHLIGHTING .  70 

SET  SEGMENT  PRIORITY .  70 

SET  DETECTABILITY .  70 

Input  Functions .  71 

INITIALISE  LOCATOR .  71 

INITIALISE  STROKE .  71 

INITIALISE  VALUATOR .  71 

INITIALISE  CHOICE .  71 

INITIALISE  PICK .  72 

INITIALISE  STRING .  72 

SET  LOCATOR  MODE .  72 

SET  STROKE  MODE .  72 

SET  VALUATOR  MODE .  72 

SET  CHOICE  MODE .  73 

SET  PICK  MODE .  73 

SET  STRING  MODE .  73 

REQUEST  LOCATOR .  73 

REQUEST  STROKE .  73 

REQUEST  VALUATOR .  74 

REQUEST  CHOICE .  74 

REQUEST  PICK .  74 

REQUEST  STRING .  74 

SAMPLE  LOCATOR .  74 

SAMPLE  STROKE .  75 

SAMPLE  VALUATOR .  75 

SAMPLE  CHOICE .  75 

SAMPLE  PICK .  75 

SAMPLE  STRING .  75 

AWAIT  EVENT .  76 

FLUSH  DEVICE  EVENTS .  76 
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